Вопрос Ввести три целых числа на паскале

[WatsaN]

 

[EgoIST]

5 6 7

 

[йцуйцуйцу]

Так вот можно: uses crt;
var a, b, c: int64;

procedure f(x: int64);
begin
write('Число ', x);
if odd(x) then write(' нечётное и ')
else write(' чётное и ');
if (x < 0) or (x > 10) then write('не ');
writeln('принадлежит отрезку [1;10]')
end;

begin
textbackground(white);
textcolor(black);
clrscr();
write('a b c: ');
readln(a, b, c);
f(a); f(b); f(c)
end.

 

[Marcusjep]

Четность числа можно проверить или получив остаток от деления числа на два (if N mod 2 = 0), или использовав функцию Odd(N), возвращающую ИСТИНА для нечетного числа (if not Odd(N))Принадлежность интервалу определяется условным оператором (if (N &gt;=0) and (N &lt;=10) then ...На печать результат двух проверок выводится процедурой Write();Ввести три числа можно или в цикле (for i:=1 to 3 do ...), или использовать три переменные. Первое, предпочтительнее.

 

[ayaz]

function f(x: integer): boolean;
begin
f := (x and 1 = 0) and (abs(x) / 10