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

помогите пожалуйста составить программы, срочно надо! Прошу

  1. Ответ
    Ответ дан petyaGavrikov
    1.
    var a,b,res:real;
    begin
    write('a=');readln(a);
    write('b=');readln(b);
    res:=a+b;
    writeln('Сумма = ',res);
    res:=a-b;
    writeln('Разность = ',res);
    res:=a*b;
    writeln('Произведение = ',res);
    res:=a/b;
    writeln('Частное = ',res);
    end.
    2.
    var a,b,c,sred:real;
    begin
    write('a=');readln(a);
    write('b=');readln(b);
    write('c=');readln(c);
    sred:=(a+b+c)/3;
    writeln('Среднеарифметическое = ',sred);
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Большое спасибо!
Самые новые вопросы