Question

Программа паскаль. Пишет неизвестное имя А, вот программа
Program ostatok; Uses crt;
Var А, В, С: real
Begin
ClrScr;
Writeln ('Vvedite histoire A i hislo B);
C:=A mod B;
If A mod B=0then
Writeln (‘hislo А delitsia na В bez ostatka’) else
Writeln (‘hislo А delitsia na В s ostatkom’);
End.

Answer 1

1) Операция MOD не применима к значениям вещественного типа, т.е к твоим переменным a и b. Они должны быть целочисленными.

2) Ты объявляешь переменные a и b, но не присваиваешь им значение. Т.е даже если бы mod и сработал, то вылезла бы ошибка "Обнаружено деление на ноль", т.к по умолчанию они проинициализированы нулём, а ты делишь их друг на друга - получаешь 0/0.

Исправленная версия программы:

var

 a, b:integer;

begin

 write('Введите число а и число b через пробел: ', #10);

 (a, b):=ReadInteger2();

 if (a mod b = 0) then

   write('Число ', a, ' делится на число ', b, ' без остатка.') else

     write('Число ', a, ' делится на число ', b, ' с остатком.');

end.