Вопрос по информатике:
1) Вводится три числа. Найти среднее арифметическое и вывести его.
2) вводится три числа. Найти сумму четных чисел.
3) Вводится три числа, найти среднее арифметическое число максимального, минимального элемента.
( Оформить все правильно, со знакамИ, точками с запятой и т.д)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.11.2016 02:05
- Информатика
- remove_red_eye 7258
- thumb_up 26
Ответы и объяснения 1
1)
var a, b, c: integer; sr:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
sr:=(a+b+c)/3;
writeln('Среднее арифметическое = ',sr);
end.
Пример:
a = 5
b = 2
c = 8
Среднее арифметическое = 5
2)
var a, b, c, s : integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
s:=0;
if a mod 2 = 0 then s:=s+a;
if b mod 2 = 0 then s:=s+b;
if c mod 2 = 0 then s:=s+c;
writeln('Сумма четных чисел = ',s);
end.
Пример:
a = 8
b = 5
c = 2
Сумма четных чисел = 10
3)
var a, b, c, max, min : integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if aif c
end.
Пример:
a = 5
b = 2
c = 8
max = 8 min = 2 Среднее = 5
- 18.11.2016 07:28
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.