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

1) Вводится три числа. Найти среднее арифметическое и вывести его.
2) вводится три числа. Найти сумму четных чисел.
3) Вводится три числа, найти среднее арифметическое число максимального, минимального элемента.
( Оформить все правильно, со знакамИ, точками с запятой и т.д)

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

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 cwriteln(max = ,max, min = ,min,  Среднее = ,(max+min)/2);
end.

Пример:
a = 5
b = 2
c = 8
max = 8 min = 2  Среднее = 5

Оцени ответ