1). Дано целое число Х. Составьте программу которая выясняет верно ли что 0 больше или равно Х и больше 1.

2). Дано целое число П. Составьте программу которая выясняет является им значение П кратное 3.

Question

Информатика

Кузьма

1 июля, 15:31

1). Дано целое число Х. Составьте программу которая выясняет верно ли что 0 больше или равно Х и больше 1.

2). Дано целое число П. Составьте программу которая выясняет является им значение П кратное 3.

+3

Ответы (1)

Знаете ответ?

Колюша · Answer 1

Условие первой программы не совсем понятно. Вот вторая:

Program atg;

var p:integer;

begin

readln (p) ;

writeln ('число=', p) ;

if p mod 3=0 then

writeln ('число кратно 3') else

writeln ('число не кратно 3') ;

end.