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

2. Как добавить анимацию команд?​

216
455
Посмотреть ответы 1

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

kayumovtanvir89
kayumovtanvir89
4,4(23 оценок)

var s: real;

      i,n: integer;

begin

  s: =0;

  n: =0;

  for i: =250 to 500 do begin

    if (i mod 5=0) and (i mod 7=0) then begin s: =s+i; n: =n+1;

                                                          end;

                                end;

  s: =s/n;

  writeln(s);

end.

 

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