Не могу понять, где тут ошибка ( Программа 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 16 mod 4=0 then
write ('число'; 16, 'делится на 4')
Else
write ('число',16, 'не делится на 4')
End
More Questions From This User See All
Answers & Comments
Var a: integer;
Begin
write ('4');
Read (a);
If a mod 4=0
then
write ('число ', a, ' делится на 4')
Else
write ('число ', a, ' не делится на 4');
End.
Begin
write ('Введите число: ');
Readln (a);
If a mod 4=0 then writeln ('число ', a, ' делится на 4')
Else writeln ('число ',a, ' не делится на 4');
End.