1. Информатика
  2. Фото №4 ! нужна ! у нас программа

Фото №4 ! нужна ! у нас программа pascal abc ! не игнорировать.

sonia81 sonia81    1   07.05.2019 19:48    1

Ответы
Cvertuhi Cvertuhi  30.09.2020 16:30

var N,N1,s:integer;

BEGIN

writeln('Введите целое число:');

readln(N);

N1:=N;

while N<>0 do begin

s:=s+N mod 10;

N:=N div 10;

end;

writeln('Сумма цифр числа ',N1,' равна ',s,'.');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
мавштдэкычп мавштдэкычп  12.11.2020 13:07
На координатной плоскости нарисуй квадрат KLMN, если известны три его вершины: K(6;9); L(10;5); M(6;1). (Определи и запиши координаты четвёртой вершины квадрата!)...
gehegeghegge gehegeghegge  12.11.2020 13:08
Запишите на зыке Паскаль строку для следующего действия Введите число А, если число было кратно 3 *...
dirysasha dirysasha  12.11.2020 13:08
Дано уравнение N + X = M. Все числа заданы в двоичной системе счисления. М =1101102 и N =1111102. Найти Х2...
kuzmichkinvale kuzmichkinvale  02.09.2019 13:30
Рассчитать сопротивление цепи при последовательном и параллельном соединении участка цепи по выбору пользователя....
abdullaeff4 abdullaeff4  02.09.2019 13:30
Написать программу,которая рассчитывает стоимость со стоимостью скидки 10% в том случае,если сумма покупки больше 1000 рублей и 20%,если cумма покупки больше 5 и 10 000 рублей....
Fracian Fracian  16.07.2019 05:50
Придумать и описать структуру таблицы базы данных, которая содержит четыре поля различных типов: символьного, числового (целого или вещественного), дата, логического. таблица...
lollyslacker lollyslacker  16.07.2019 05:50
Ккаким последствиям может заряжение компьютера компьютерными вирусами...
AnnieFire1 AnnieFire1  16.07.2019 05:50
Вы работаете с твердотельным накопителем ssd «sata iii ssd720 6gb/s – 512 gb (made in taiwan)». одно из последующих утверждений является неверным. выберите ответ: 1. скорость...
alis2710p00nvt alis2710p00nvt  16.07.2019 05:40
Напишите программу вычисления значения выражения y = 5x + 6, если x = 3 в паскале...
Zlatasolnce Zlatasolnce  16.07.2019 05:40
Представлены результаты взвешиваний пяти арбузов.определите,какой из них самый легкий,если: 1 легче 3 4 легче 5 3 легче 4 5 легче 2 цифры в данном случае не обозначают вес,а...

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