Информатика
program gg; var i,s: integer; begin   for i: =10 to 50 do   if i mod 2=0 then s: =s+i;   writeln('сумма всех четных чисел от 10 до 50 равна ',s) end.... Подробнее
ответов: 2
var a,n,s: integer; begin   s: =1;   n: =1;   while n< =100 do begin     readln(a);     if a mod 3 =0 then s: =s*a;    ... Подробнее
ответов: 2
Популярные вопросы