Question

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

Answer 1

Ответ:

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.

Answer 2

Ответ:

Об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.ъяснение: