Решение четырехэтажной дроби - Turbo Pascal

Формулировка задачи:

var a,b,c,d:integer;
begin
readln(a,b,c);
if(b=0)then
writeln('resheniy net')
else 
begin
if (c=0) then 
writeln('resheniy net')
else
begin
if (d=0) then 
writeln ('resheny net')
else
writeln('a:b:c:d=', a/b/c/d);
end;
end;
readln;
end.

всегда пишет "решений нет" в чем ошибка?

Решение задачи: «Решение четырехэтажной дроби»

Листинг программы

readln(a,b,c,d);

Объяснение кода листинга программы

В данном коде происходит чтение четырех чисел с помощью функции readln(). Числа сохраняются в переменные a, b, c и d.

Оцени полезность:

5 голосов , оценка 3 из 5

Похожие ответы