1. Информатика
  2. Сумма и произведение цифр

Сумма и произведение цифр случайного трехзначного числа число вводится с клавиатуры в паскале сделайте

enotzdrt enotzdrt    3   07.08.2019 14:00    1

Ответы
vool23 vool23  04.10.2020 03:06
Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Dimoooooooon228 Dimoooooooon228  12.04.2020 14:19
Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок. if x 0 then y:= 100 div x; else y:= 0; if x 0 or y 0 then k:= k+1 else k:= 0;...
alisa5540 alisa5540  12.04.2020 14:20
Написать программу на ЯП Паскаль1. Вывести на экран лесенку из звездочек2. Вывести на экран Ёлочку из звездочек...
kuzmin06 kuzmin06  12.04.2020 14:21
Найти значение переменной са:=567b:=345b:=a+c* a-cc:=a+b+a*c+a/3​...
книга67 книга67  19.08.2019 21:30
Вexcel обчисліть значення функції y=2sin(x) на відрізку [0; 2] з кроком 0.1 та побудуйте графік функції....
михас3 михас3  28.10.2019 13:28
1)разработать свой алфавит для племени мульти-пульти мощностью 32 символов 2)составьте кодовую таблицу алфавита данного племени. 3)закодировать текст на языке племени...
Sozedatel Sozedatel  28.10.2019 13:12
Укажите правильные записи кратности (multiplicity) конца ассоциации на диаграмме классов? выбрать несколько вариантов. вариант 1 1; 3 вариант 2 1..2, 4..* вариант...
BlackElegant BlackElegant  28.10.2019 13:10
Найдите число знакового целого типа, которое записано в 8-разрядной ячейке памяти компьютера так: «00»:...
kektuber222owf6bv kektuber222owf6bv  10.09.2019 21:43
Ть написати 6-10речень на тему уявіть що ваш знайомий поцікавився яку тему ви вивчаєте.аи відповідаєте: вимоги до мовлення . а він запитує,яка вимога на вашу думку...
sonyaway12 sonyaway12  10.09.2019 23:10
Периметрпрямоугольникп38см ширина 9см найти длину прямоугольника...
Баумгертнер Баумгертнер  10.09.2019 21:44
Нужно сочинение на тему иду в поход с князем игорем...

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