Есть ответ 👍

На паскале 1.найти сумму первых 10 натуральных нечетных чисел. 2.найти произведение натуральных чисел прекратить подсчет при вводе 1.

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

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


Var a,b,c,d: integer; begin c: =1; b: =0; while a< > 1 do begin readln(a); if a mod 2 < > 0 then begin b: =b+1; if b< =10 then c: =c+a; end; c: =c*a; end; writeln(b,' ',c); end.
Dragnil29
4,8(87 оценок)

45312 , т.к.| - значит "или", а & - обозначает "и". при запросе с "или" у нас выйдет больше значений

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