Составьте программу на языке Паскаль, с помощью которой определите все четырехзначные номера машин, сумма двух двузначных чисел которых составляет 100

Question

Составьте программу на языке Паскаль, с помощью которой определите все четырехзначные номера машин, сумма двух двузначных чисел которых составляет 100

Гость

Ответ(ы) на вопрос:

Accepted Answer

program kek;var a , b: real;i: integer;beginfor i := 1000 to 10000 dobegin a := i mod 100; b := i div 100; if a + b = 100 then writeln(i)end;end.