1. Информатика
  2. Turbo pascal человек ввел

Turbo pascal человек ввел трехзначное число, при функций div и mod найти их сумму.

Настя55251 Настя55251    1   01.03.2019 21:20    2

Ответы
bogdan39 bogdan39  23.05.2020 18:54

program xxx;

  var n, c, d, e, s : integer;

begin

   write('введите число');

   readln(n);

   c:= n div 100;

   d:=(n div 10) mod 10;

   e:= n mod 10;

   s:= c + d + e;

   writeln('сумма чисел =', s);

   readln

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
SOFIA0209 SOFIA0209  18.06.2019 15:00
Запишите значение переменной b после выполнения алгоритма. а: =24 b: =1 a: =a*2 b: =b-a+4 если a b, то b=a, если b=b-a...
хочузнать2018 хочузнать2018  18.06.2019 15:00
Сочинение на тему: мой новый компьютер...
777Leha777 777Leha777  18.06.2019 15:00
Построить блок-схему, изображающую алгоритм и вычислить площадь прямоугольника...
Анастасия11111127564 Анастасия11111127564  04.10.2019 13:20
Расшифруйте двоизначный код используя таблицу ascii...
ZevsGromov ZevsGromov  04.10.2019 13:20
A7. сколько понадобится дискового пространства в килобайтах, чтобы сохранить 16-ти битный звук с частотой дискретизации 24 кгц продолжительностью 512 секунд? 1) 24000 2) 6000...
SlavaArt SlavaArt  04.10.2019 13:20
Из слова ,дисковод, получено слово ,диск, вставте пропущенные значения. delete(,дисковод, ;...
valaegorova34 valaegorova34  04.10.2019 13:20
Шестеро друзей купили билеты на места 1 – 6 одного и того же ряда. сколько существует вариантов их рассадки, если оля не хочет сидеть на месте №1, маша и витя непременно хотят...
xzc999 xzc999  22.12.2021 19:16
Информатика.Создайте веб-страницу с именем table.htm, содержащую таблицу с формулами площадей фигур, с применением встроенной таблицы стилей. (Урок 13)...
evgeha19821 evgeha19821  22.12.2021 19:07
1) 19^10 переведите в 2-ю, 8-ю, 16-ю системы счисления; 2) 123^8 в Х^10; 3) 13^16 в Х^10...
Рита7373 Рита7373  22.12.2021 19:01
Створити нову таблицю у середовищі СУБД MS Access можна Виберіть одну або декілька відповідей: за до Звіту у режимі Конструктор за до Автотаблиці шляхом уведення даних...

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