Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal)
1.Написать программу, которая предлагает ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
Ответы
1 и 2 работают до макс. значения integer, а не только трехзначные
var i,s:integer;
begin
readln(i);
while i>0 do begin
s:=i mod 10;
i:=i div 10;
end;
writeln(s);
end.
var i:integer;
begin
readln(i);
while i>0 do begin
write(i mod 10);
i:=i div 10;
end;
end.
var a,b,c:integer;
begin
readln(a,b,c);
writeln('Sum=',a+b+c,' Proizvedenie=',a*b*c,' Sr.arifm=',(a+b+c)/3);
end.