profile
Опубликовано 4 года назад по предмету Информатика от mrxuk

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

  1. Ответ
    Ответ дан Gluk1

    uses crt;
    var a,b,c,cc,s:integer;
    begin
    cc:=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.

  2. Ответ
    Ответ дан БелыйЕжик

    var a,b,c,s,k:integer;
    begin
    readln(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.

Другие вопросы
Lenusik
Математика - 3 дня назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 1 неделя назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 1 неделя назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 1 неделя назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 1 неделя назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.