Напишите программу, которая вводит число, не превышающее 45,
5-9 класс
|
и определяет, изменяется ли сумма цифр этого числа при умножении его
на два. Ответ прикрепите в виде файла в среде PascalABC.
vara,b,c,d,e,f:integer;
begin
writeln('a');
readln(a);
c:=a mod 10;
d:=a div 10+c;
a:=a*2;
e:=a mod 2;
f:=a div 10+e;
if f=d then
writeln(f,' Равно ',d)
else
writeln(f,' Не равно ',d);
end.
Другие вопросы из категории
Читайте также
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
первым игроком .к этой сумму первый игрок также прибавляет произвольное число не превышающее 10 ,и сообщает новую сумму .И т.д до тех пор пока окончательной суммой не окажется число 100 .выигрывает тот, кто первый достигнет 100.как должен действовать первый игрок , чтобы выиграть?
ПОМОГИТЕ ПЛиз
еньшее десяти положительное число. Второй игрок прибавляет к названному числу свое целое положительное число, также не превышающее десяти, и называет сумму. К этой сумме первый прибавляет какое-либо положительное число, не превышающее десяти, и сообщает сумму. Выигрывает тот, кто первый достигнет ста.
Как добиться победы?