Написать программы на паскале ​


Написать программы на паскале ​

FTA72артем FTA72артем    1   29.10.2020 17:43    0

Ответы
sorokingleb20031 sorokingleb20031  28.11.2020 17:43

1)

var

m: integer;

begin

read(m);

writeln(m, 'кг=', m div 1000, 'тонна');

end.

2)

var

l: integer;

begin

read(l);

writeln(l, 'см = ', l div 100, 'м и ', l mod 100, 'см');

end.

3)

var

a, n: integer;

begin

read(a, n);

writeln('Получил каждый по: ', n div a);

writeln('Осталось: ', n mod a);

end.

4)

var

s: integer;

begin

read(s);

writeln(s, ' секунд = ', s div 60, ' мин. и ', s mod 60, ' сек.');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика