Не могу понять, где тут ошибка ( Программа Pascal ). Помогите, пожалуйста: Program delenie_na_4; Var a: integer; Begin write ('4'); Read (a); If 16 mod 4=0 then write ('число'; 16, 'делится на 4') Else write ('число',16, 'не де...
Не могу понять, где тут ошибка ( Программа Pascal ). Помогите, пожалуйста:
Program delenie_na_4;
Var a: integer;
Begin
write ('4');
Read (a);
If 16 mod 4=0 then
write ('число'; 16, 'делится на 4')
Else
write ('число',16, 'не делится на 4')
End
Ответ(ы) на вопрос:
Гость
Program delenie_na_4;
Var a: integer;
Begin
write ('4');
Read (a);
If a mod 4=0
then
write ('число ', a, ' делится на 4')
Else
write ('число ', a, ' не делится на 4');
End.
Гость
Var a: integer;
Begin
write ('Введите число: ');
Readln (a);
If a mod 4=0 then writeln ('число ', a, ' делится на 4')
Else writeln ('число ',a, ' не делится на 4');
End.
Не нашли ответ?
Похожие вопросы