Регистрация
волшебство5
16.05.2021 20:11
Информатика
Есть ответ 👍

Укого есть на сор за 4 четверть по информатике 6 класс, скиньте

290
353
Посмотреть ответы 1

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

eerihovp08oqz
eerihovp08oqz
4,5(27 оценок)
Var  i, s, p : integer; beginwrite ('n='); readln (n); s: =0; p: =1;   for i: =1 to n do      begin       if i mod 5=0 then   s: =s+i;         if i mod 3=0 then    p: =p*i    end;   writeln ('s=', s, '   p=', p)end.2) var  i, s, p : integer; beginwrite ('n='); readln (n); s: =0; p: =1;       i: =1   while i< = n do      begin       if i mod 5=0 then   s: =s+i;         if i mod 3=0 then    p: =p*i;       i: =i +1;     end;   writeln ('s=', s, '   p=', p)end.

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