1. Информатика
  2. Напишите программу, которая

Напишите программу, которая вводит трехзначное число и находит сумму цифр этого числа.

ЖеньОК282 ЖеньОК282    1   16.05.2019 16:14    0

Ответы
Ghostremel Ghostremel  10.06.2020 12:35

var

a,b,c,n,s: integer;

begin

readln(n);

if ((n>99) and (n<1000)) then

begin

a:=n div 100;

b:=n div 10 mod 10;

c:=n mod 10;

s:=a+b+c;

writeln('Сумма трех цифр равна ',s);

end else writeln('Введите трехзначное число!');

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
bobrovnikova13 bobrovnikova13  21.05.2019 22:42
8класс, нужно через 1 час сдать. все нужно выполнять в excel и прислать ссылку на файл. ,...
fgarhadg fgarhadg  21.05.2019 22:39
Информатика, 35 , решите подробно , которое есть на фото...
Alinakozlova2004 Alinakozlova2004  26.06.2019 14:40
Нужно сделать в паскале, пусть дан текст из 80 . напечатайте сначала все цифры, входящие в него, а затем все остальные , сохраняя при этом взаимное расположение в каждой из этих...
reginakajbeleva reginakajbeleva  26.06.2019 14:40
:1) специальный пакет программ, всей работой компьютера. 2) переводчик с программного языка на язык машинных кодов. 3) программа, предназначенная для облегчения поиска, создания...
zemkaaa1 zemkaaa1  26.06.2019 14:40
Вводиться число n вывести на экран по образцу (программа в pascal abc) 1 2 3 4 2 3 4 3 4 n...
shtondin2017 shtondin2017  26.06.2019 13:58
Полином p(x) задан своими корнями и старшим коэффициентом an. p(x) = an * (x - r1) * (x-r2) * * (x - rn) дан массив координат x: x0, x1, xm вычислить массив значений полинома в...
Kiri205 Kiri205  26.06.2019 14:50
1.напишите программу , которая определяет по введенной градусной мере развернутый угол или нет. 2.для данного x вычислить: если x 5, то возвести число в квадрат; если x 5, то возвести...
nastunya29 nastunya29  26.06.2019 14:50
Втекстовом документе слова, в которых есть ошибки, комп подчеркивает красной волнистой линией. подумай и скажи, как комп может определять неправильно написанное слово, если смысла...
tray5o3 tray5o3  26.06.2019 14:50
На странице 10 рисунков по 650 кбайт каждый. объем текста 4000 символов. кодировка asc ||. найти объем в мб и время за которое загрузится страница при скорости 256 кбит/с....
kseny07 kseny07  26.06.2019 14:50
Все эффекты анимации делятся на 4 группы и писать надо вот вам пример: 1.вхид-объект отсутствует на слайде с эффекта появляется 2.видилення- 3.вихид- 4.шлях перемещения нужно за...

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