ПРОГРАММИРОВАНИЕ В ПАСКАЛЬ Изменить программу которая ниже так, чтобы в ней подсчитывалось и выдавалось
!!!ОДНОВРЕМЕННО!!! 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.
!!!ОДНОВРЕМЕННО!!! 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.
More Questions From This User See All