Регистрация
mamatvoeymamy
02.09.2022 23:21
Информатика
Есть ответ 👍

Для трёх заданных чисел a,b,c найти среднее арифметическое положительных из них. если таковых нет, сделать об этом сообщение.

222
275
Посмотреть ответы 3

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

КИРИЛЛ9067
КИРИЛЛ9067
4,7(89 оценок)

var a,b,c,s,k: integer; beginreadln(a,b,c); if a> 0 then begin k: =k+1; s: =s+a; end; if b> 0 then begin k: =k+1; s: =s+b; end; if c> 0 then begin k: =k+1; s: =s+c; end; if k=0 then writeln('нет положительных чисел') else writeln(s/k); end.

nitkind
nitkind
4,5(49 оценок)

uses crt; var a,b,c,cc,s: integer; begincc: =0; readln(a); if a> 0 then begin s: =a; inc(cc); end; readln(b); if b> 0 then begin s: =s+b; inc(cc); end; readln(c); if c> 0 then begin s: =s+c; inc(cc); end;

writeln(s/cc); readln;

end.

Roost11
Roost11
4,6(17 оценок)
Решение: составим пропорцию 2000кб х кб = , 30 с 12 с отсюда 2000кб × 12 с х= = 800 кб 30с или второй способ, тоже пропорция: 30с 2000 кб = 12 с х кб т.к. отношение 30: 12 = 2,5, то и отношение 2000: х будет равно 2,5 2000/2,5=800 кб

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