Регистрация
mullyminovam
11.10.2021 23:38
Информатика
Есть ответ 👍

1) составьте программу вычисления произведения чисел от 1 до 10 (1*2*3*..*) 2)составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10 3)составьте программу, которая находит сумму квадратов чисел от 1 до 10

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

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

k0tesss
k0tesss
4,5(21 оценок)
Var p,i,s: integer; begin p: =1; for i: = 2 to 10 do       p: =p*i; writeln('1: ',p); p: =1; s: =0; for i: = 1 to 10 do       if i mod 2 = 0 then s: =s+i       else p: =p*i; writeln('2: '); writeln('s = ',s); writeln('p = ',p); s: =0; for i: = 1 to 10 do       s: =s+i*i; writeln('3: '); writeln('s = ',s); end.
НиколайКот
НиколайКот
4,6(73 оценок)

смотря откуда заканчивалась игра. Возможно проблемы с сайтом. или устройство не тянет

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