Информатика, опубликовано 2018-08-22 22:25:13 by Гость
Найдите и выведите на экран все двузначные числа, сумма цифр которых не меняется при умножении на 2
Ответ оставил Гость
Var
i,s: integer;
begin
for i:=10 to 99 do begin
s:= 0;
s:= i div 10 + i mod 10;
if s*2=s then writeln(i)
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.