Регистрация
тильняшка5
03.08.2020 10:31
Информатика
Есть ответ 👍

Составить программу к решению : "дано число n. найти сумму и количество его цифр.

299
448
Посмотреть ответы 2

Ответы на вопрос:

leeJLZeel
leeJLZeel
4,7(35 оценок)
Var a,b,k,c,d: integer; begin read(a); k: =0; c: =10; while k< > 0 do begin b: =b + a mod c;   k: =a div c; inc(d); end; write(b,d); end.
pe4enka7834727257382
pe4enka7834727257382
4,7(45 оценок)
//pascal abc.net v3.1 сборка 1172 var   p,s: real; begin   read(s,p);   s: =s+p*5;   writeln(s); end. пример ввода: 3 5 пример вывода: 28

Популярно: Информатика