Пожалуйста помогите решить желательно все либо желая бы одну (P.S. программка
Пожалуйста помогите решить желанно все либо хотя бы одну (P.S. программа для программки Turbo Pascal)
1.Написать программку, которая предлагает ввести 3 значное число и обретает сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр напротив. (123- 321)
3.Написать программку, которая предлагает ввести три числа с клавиатуры, обретает их сумму, произведение и среднее арифметическое.
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.