Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.