Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

ПРОГРАММИРОВАНИЕ В ПАСКАЛЬ
Изменить программу которая ниже так, чтобы в ней подсчитывалось и выдавалось
!!!ОДНОВРЕМЕННО!!! 3 ответа, A НЕ 3 РАЗНЫЕ ПРОГРАММЫ
а) количество цифр числа;
б) произведение цифр, больших 0;
в) сумма цифр, меньших 3.
ПРОГРАММА. Ввести с клавиатуры натуральное число. Найти сумму его цифр.
Решение: Programm Sum;
Var chislo; word; {число, введенное с клавиатуры}
tchifra, Summa:integer; {tchifra - правая цифра}}
begin
Write (введи число);
Readln (chislo);
Summa:=0;
Repeat
tchifra:-chislo mod 10; {скопировали правую цифру}
Summa:=Summa+tchifra;
chislo:=chislo div 10 {оставили от числа левую часть}
Until chislo=0; {выход из цикла, если нет больше цифр}
Writeln (сумма цифр= , Summa);
Readln end.

Ответ оставил Гость

Program Sum;

var
  chislo: longint; {число, введенное с клавиатуры}
  tchifra, Summa, n, p: integer;{tchifra - правая цифра}

begin
  Write(введи число: );
  Readln(chislo);
  Summa := 0;n := 0;p := 1;
  repeat
    tchifra := chislo mod 10; {получили правую цифру}
    Inc(n);
    if tchifra > 0 then p := p * tchifra;
    if tchifra < 3 then Summa := Summa + tchifra;
    chislo := chislo div 10{оставили от числа левую часть}
  until chislo = 0; {выход из цикла, если нет больше цифр}
  Writeln(Количество цифр в числе- , n);
  Writeln(Сумма цифр, меньших 3- , Summa);
  Writeln(Произведение цифр, больших нуля- , p);
  Readln
end.

Тестовое решение:
введи число: 10354
Количество цифр в числе- 5
Сумма цифр, меньших 3- 1
Произведение цифр, больших нуля- 60