Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

5 задание(сделать программу в паскале) Помогите пожалуйста

Ответ оставил Гость

Var a,b,k,s,i:integer;
begin
writeln(Введите границы интервала:);
readln(a,b);
k:=0; s:=0;
for i:=a to b do
 if (i mod 2 = 0) and (i mod 3 <> 0)
   then begin k:=k+1; s:=s+i; end;
if k<>0
 then writeln(s = ,s,  k = ,k,  Среднее арифметическое = ,s/k)
 else writeln(Искомых чисел в заданном диапазоне нет);
end.

Пример:
Введите границы интервала:
4 16
s = 52  k= 5  Среднее арифметическое = 10.4