Пожалуйста помогите решить желательно все либо желая бы одну (P.S. программка

Question

Пожалуйста помогите решить желанно все либо хотя бы одну (P.S. программа для программки Turbo Pascal)

1.Написать программку, которая предлагает ввести 3 значное число и обретает сумму его цифр.

2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр напротив. (123- 321)

3.Написать программку, которая предлагает ввести три числа с клавиатуры, обретает их сумму, произведение и среднее арифметическое.

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Людмила Лакомова · Answer 1 · 2019-07-22 02:57:59+3:00

1 и 2 работают до макс. значения integer, а не только трехзначные

var i,s:integer;

begin

readln(i);

while igt;0 do begin

s:=i mod 10;

i:=i div 10;

end;

writeln(s);

end.

var i:integer;

begin

readln(i);

while igt;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.