Question

Решите ПОЖАЛУЙСТА 3,4,5 задание. Очень нужно до понедельника. Заранее СПАСИБО!!!)

Answer 1

3.
var l:integer;
begin
write('L = '); readln(l);
writeln(l,' см = ',l div 100,' м ',l mod 100,' см');
end.

Пример:
L = 825
825 см = 8 м 25 см

4.
var a:integer;
begin
write('a = '); readln(a);
a:=abs(a);
writeln('Среднее арифметическое цифр = ',(a div 10 + a mod 10)/2:4:1);
end.

Пример:
a = 25
Среднее арифметическое цифр = 3.5

5.
var a,s:integer;
begin
write('a = '); readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('Сумма цифр = ',s);
end.

Пример:
a = 825
Сумма цифр = 15