program DemoIf;
uses wincrt;
var a, b: integer; c: real;
begin
write (‘Введите два числа: ’);
readln (a, b);
if b=0 then writeln (‘Нет решения’)
else
begin
c:=a/b;
writeln (‘Частное чисел ’,a,’ и ’,b,’=’, c)
end
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
