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

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

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

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

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

Задать свой вопрос
1 ответ

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.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт