1. Информатика
  2. Решить желательно все

Решить желательно все или хотя бы одну (p.s. программа для программы turbo pascal) 1.написать программу, которая предлагает ввести 3 значное число и находит сумму его цифр. 2. написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321) 3.написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.

carrot4 carrot4    2   19.03.2019 23:50    0

Ответы
Ната70 Ната70  26.05.2020 05:53

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nadia6191 nadia6191  11.04.2021 11:54
На вході програми маємо два цілих ненульових числа n і m, записаних в одному рядку через пропуск. Програма повинна вивести 1, якщо число n ділиться на m націло, і 0 у протилежному...
NASTIAMURKA NASTIAMURKA  30.03.2020 23:50
Як типи значень ви знаєте? ів!...
123456789er 123456789er  04.07.2019 21:00
Полное решение переведите в десятичную систему счисления число 2fa в 16...
siplatoffmatvei siplatoffmatvei  04.07.2019 21:00
Где хранятся данные (текстовые, графические, числовые, звуковые, мультимедиа)? в памяти компьютера в памяти человек в памяти живых существ в бумажных книгах на электронных...
Stacool220 Stacool220  04.07.2019 21:10
Нужно сделать до вечера много 1. опишите, какие действия с информацией (информационные процессы: хранение, передачи, обработки) будут выполнены учеником, если он: учит правило....
Gadik228 Gadik228  09.06.2019 15:30
Дано тризначне число. чи кратна сума його цифр семи? програма на мові паскаль...
niloybasak0 niloybasak0  09.06.2019 15:30
Какой результат будет после выполнения следующей программы? var s,d : real; i : integer; begin s: =0 for i: =1 to 49 do begin d: =i*(i+1); s: =s+1/d; end; writeln( s= ,s);...
burdick94 burdick94  09.06.2019 15:30
Как сохранить заметки к в powerpoint? 1при сохранении выбрать формат метафайл windows . 2при сохранении выбрать формат презентация (с заметками) . 3при сохранении презентации...
xayalaamirova2 xayalaamirova2  25.11.2021 19:00
1) написать программу, которая по введённому году будет определять высокосный он или нет. 2) Создать программу квест, в которой в зависимости от выбора игрока будут использованы...
Naymchim Naymchim  25.11.2021 19:00
1. Автомат получает на вход трёхзначное число. По этому числу строится новое число по следующим правилам. 1. Складываются первая и вторая, а также вторая и третья цифры...

Популярные вопросы