edsrghhythg

22.02.2022 07:15 •  Информатика

Опишите вид экрана во время работы следующей программы. Результат проверьте на компьютере. {Вычисление частного}

Var  

     a,b,c:real; {делимое, делитель, частное}

Begin

Writeln(‘Вычисление частного’);

Writeln(‘Введите в одной строке делимое и делитель’);

Writeln(‘затем нажмите <Enter>’);

Write(‘=’);

Readln(a,b);

If  b<>0 then

  Begin

  с:=a/b;

Wtiteln(‘частное от деления’,а:6:3,’,b:6:3,’равно’,c:6:3);

End

else

Writeln (‘Ошибка! Делитель не должен быть’, ’равен нулю!’);

Readln;
End. ​