Паскаль. Составить программу, в которой среди двузначных чисел печатаются те числа, которые равны сумме своих цифр, используя цикл с параметром(счетчиком).
Answers & Comments
0xxdarkbladexx0
Program z; var i:integer; begin for i:=10 to 99 do begin if i=((i mod 10)+(i div 10)) then writeln(i); end; end.
Я прогнал программу, таких чисел нет среди двузначных
Answers & Comments
var i:integer;
begin
for i:=10 to 99 do
begin
if i=((i mod 10)+(i div 10)) then writeln(i);
end;
end.
Я прогнал программу, таких чисел нет среди двузначных