Регистрация
айфон66666
15.09.2022 03:36
Информатика
Есть ответ 👍

Паскаль! дано одно целое число. определить: а) является ли оно четным. б) делится ли оно на 13

255
404
Посмотреть ответы 2

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

genЕsis
genЕsis
4,5(23 оценок)

var a: integer; begin readln (a); if a mod 2 =0 then writeln ('четное') else writeln ('нечетное'); if a mod 13=0 then writeln ('делится на 13') else writeln ('не делится на 13')end.

Valentinka079
Valentinka079
4,6(6 оценок)
1)переменные d,x1,x2 сделайте не целые(integer), а действительные числа(real) 2) в программе нет вывода корней (write(x1,'   ',x2)

Популярно: Информатика