Регистрация
polyakkate
17.11.2022 19:28
Информатика
Есть ответ 👍

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

239
378
Посмотреть ответы 2

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

ЛераКлаф
ЛераКлаф
4,5(15 оценок)

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.

eshkinbayramov2
eshkinbayramov2
4,5(13 оценок)

обясни

Объяснение:

я. маллеткпааап

Популярно: Информатика