1. Информатика
  2. Написать программу, считающую

Написать программу, считающую сумму цифр целого числа. программа должна быть написана в tp(turbo pascal)

moki2 moki2    3   18.05.2019 10:50    2

Ответы
dilyara112005 dilyara112005  30.09.2020 20:04

program z1;
var S,n:integer;
begin
writeln('Введите число');
readln(n);
while n>0 do begin
S:=S+n mod 10;
n:=n div 10;
end;
writeln('S=',S);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
07090702 07090702  19.12.2019 10:29
Продолжить​ по информатике 6 класс...
Vkomarova Vkomarova  19.12.2019 10:29
Это информатика, .​ наша программа работает нормально, только со вторым не фурычит....
papapapapap papapapapap  19.12.2019 10:29
Какова длительность распространения сигнала радиоволны от мобильного абонента(ms) до базовой станции(bts), если ms находится от нее на расстоянии 37.8км? в ответе...
Белыйснег35 Белыйснег35  19.12.2019 10:31
5. какие назначения имеют кнопки панели инструментов programing пакета программ mathcad? 6. описать последовательность создания программы-функции в mathcad? оператор...
AlviaSil AlviaSil  19.12.2019 10:31
Логическое выражение не х или не ( х или у ) или не (у и не х ( х и у ))...
aidanmoretti aidanmoretti  19.12.2019 10:32
Врайонной олимпиаде по информатике участвовали 3 ученика из школы михаил, владимир и алексей. их друзья высказали свои предположения по итогам олимпиады: 1) миша...
помогитееученику помогитееученику  19.12.2019 08:35
1. пользователю необходимо ввести число. если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10. в каждом случае программа сообщает,...
Наночкка Наночкка  12.04.2020 17:11
Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln...
Валерушка8 Валерушка8  29.04.2020 14:18
информатика Напишите программу вычисления выражений: а) y cosx, x ≤ 0 3sin 2x + 5, x ≥ 2 tgx – 21,5x + 1, 0 x 2 б) y 31,5x + 5, x ≤ 0 2tgx + 1, x ≥ 2 x2 + x + 1,...
Marksensei Marksensei  29.04.2020 11:46
Внимательно посмотри видео. Запиши алгоритм изменения «ориентации» страницы. Перечисли виды ориентации. Запиши алгоритм создания «номер страницы» Как отправить...

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