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

Напишите программу на вычитание, деление и умножение (8-9 класс)
На примере:
program n_1
uses crt
var
a, b, c: integar;
begin
writeln (введите а: );
readln (а);
writeln (введите b: );
readln (b);
c:=a+b
writeln (сумма =, c);
readkey;
end.

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

Program n_1;
uses crt;
var
a, b, c: integer;
d:real;
begin
writeln (введите а: );
readln (a);
writeln (введите b: );
readln (b);
c:=a+b;
writeln (сумма =, c);
c:=a*b;
writeln(произведение = ,c);
if b=0 then
writeln(деление на 0)
else
begin
d:=a/b;
writeln(деление = ,d:4:2);
end;
readkey;
end.