Найдите и выведите на экран все двузначные числа, сумма которых не меняется при умножение на два. Нужно написать программку в паскале.
Найдите и выведите на экран все двузначные числа, сумма которых не меняется при умножение на два. Нужно написать программку в паскале.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SameSumNumbers;
var
num, num1, num2, sum1, sum2: integer;
begin
sum1 := (num1 div 10) + (num1 mod 10);for num := 10 to 99 do
begin
num1 := num;
num2 := num * 2;
sum2 := (num2 div 10) + (num2 mod 10);
if sum1 = sum2 then
writeln(num);
end;
end.