Сциклом пока и до: программа паскаль вычислить сумму первых 10 натуральных чисел?

128

157

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

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

Вика666666661

Информатика

4,6(43 оценок)

Var a,x: integer; begin a: =0; while a< =10 do begin a: =a+1; x: =x+a; end; writeln(x); end.

eliseygrid53

Информатика

4,6(78 оценок)

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