Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.11.2015 03:38
- Информатика
- remove_red_eye 8248
- thumb_up 14
Ответы и объяснения 1
Program zadacha_4;
var a,b,c,d:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
if b mod 2 = 0 then d:=d+c;
end;
writeln(d);
end.
program zadacha_5;
var a,b,c,e:integer;
d:real;
begin
c:=0;
d:=0;
writeln('введите число');
readln(a);
writeln('введите число');
readln(b);
for a:=a to b do begin
if a mod 2 0 then e:=sqr(a);i
f a mod 2 0 then c:=c+1;
if a mod 2 0 then d:=d+e;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.
- 08.11.2015 02:20
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.