profile
Опубликовано 6 лет назад по предмету Информатика от Веруся15

дано 4 числа найти сумму чисел, извлечь количество сотен, если четное, то найти среднее этих чисел, а , если нет, то произведение

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

    program zisla;
    uses crt;
    var a,b,c,d,s,g,n,v: real;
    begin
    cls;
    write('введите 4 числа');
    read(a,b,c,d);
    s:=a+b+c+d;
    g:=s/100;
    if g=g/2 then
    begin
    v:=s/4;
    writeln('среднее этих чисел=',s);
    end
    else
    begin
    n:=a*b*c*d;
    writeln('произведение этих чисел',n)
    end;
    end.

    решал на паскале абс

    Ставь лучшее решение

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