Не могу понять, где тут ошибка ( Программа 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы