1)
var
m: integer;
begin
read(m);
writeln(m, 'кг=', m div 1000, 'тонна');
end.
2)
l: integer;
read(l);
writeln(l, 'см = ', l div 100, 'м и ', l mod 100, 'см');
3)
a, n: integer;
read(a, n);
writeln('Получил каждый по: ', n div a);
writeln('Осталось: ', n mod a);
4)
s: integer;
read(s);
writeln(s, ' секунд = ', s div 60, ' мин. и ', s mod 60, ' сек.');
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.