profile
Опубликовано 6 лет назад по предмету Информатика от Манюнчик19

Подсчитать количество положительных чисел среди чисел a,b,c

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

    var
    a,b,c,ans:integer;
    begin
    readln(a,b,c);
    ans := 0;
    if(a>0)then inc(ans);
    if(b>0)then inc(ans);
    if(c>0)then inc(ans);
    writeln(ans);
    readln;
    end.

Самые новые вопросы