Регистрация
AnnaVag8912
02.04.2020 19:48
Информатика
Есть ответ 👍

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

124
396
Посмотреть ответы 2

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

Liza32572
Liza32572
4,8(92 оценок)
Var unitscount,       tenscount,       hundredscount,       number : integer; begin readln(number); unitscount : = number mod 10; tenscount : = (number div 10) mod 10; hundredscount : = number div 100; writeln('count of units: ', unitscount); writeln('count of tens: ', tenscount); writeln('count of hundreds: ', hundredscount); writeln('sum of digits: ', unitscount + tenscount + hundredscount); writeln('multiplication of digits: ', unitscount * tenscount * hundredscount); end.
kostyatyupa
kostyatyupa
4,4(14 оценок)

var a,b,c: integer;

begin

  read(a,b,c);

  if a> =0 then writeln(a);

  if b> =0 then writeln(b);

  if c> =0 then writeln(c);

end.

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