Не могу понять, где тут ошибка ( программа 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

268

328

Посмотреть ответы 3

Ответы на вопрос:

qahhor

Информатика

4,7(36 оценок)

Var a: integer; begin write ('введите число: '); readln (a); if a mod 4=0 then writeln ('число ', a, ' делится на 4') else writeln ('число ',a, ' не делится на 4'); end.

дншегзпгх

Информатика

4,6(81 оценок)

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.