Предмет: Информатика,
автор: Vlad152
Решите пожалуйста программу
Приложения:
Ответы
Автор ответа:
0
var a, b, c:real;
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
begin
c:=a/b;
writeln(c);
end;
end.
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
begin
c:=a/b;
writeln(c);
end;
end.
Интересные вопросы
Предмет: Физика,
автор: elisei25
Предмет: Английский язык,
автор: mangretb
Предмет: Українська мова,
автор: Аноним
Предмет: Математика,
автор: бэндер