Регистрация
помощь155
12.01.2020 15:39
Информатика
Есть ответ 👍

Как составить по информатике на нахождения дня рождения родителей

273
500
Посмотреть ответы 2

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

sofka123890
sofka123890
4,6(88 оценок)
Допустим: папа родился в 1977 , но он младше мамы по месяцам и дням. мама родилась на 2 года позже папы , в мае 5.
arsenova
arsenova
4,8(58 оценок)

var

  n, c, a1, p: integer;

begin

  write ('введите трехзначное число: ');

  readln (n);

  if (n < 100) or (n > 999) then begin

    writeln ('число не является трехзначным');

    exit;

  end;

  a1 : = 0;

  p : = 1;

  while n > 0 do begin

    c : = n mod 10;

    n : = n div 10;

    if c = 1 then

      a1 : = a1 + 1;

    p : = p * c;

  end;

  writeln ('количество единиц = ', a1);

  writeln ('произведение цифр = ', p);

end.

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