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

Question

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

---

Comments

на каком языке?

---

var a,b:real;beginwriteln('Введите количество см.: ');readln(a);b:=a/100;writeln(a,' см. = ',b,' метров(метр)');end.

---

не пойдет

---

английский

---

паскаль abc

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