каждый человек весит 1000 кг. - ложь Не у всех людей есть брат - истина СЛОЖНЫЕ И ПРОСТЫЕ : человек весит 50 кг. ИЛИ имеет брата - сложное
Var
number : integer;
begin
number := Random(-30000, 30000);
if ((number mod 2 = 0) and (number mod 5 = 0)) then
writeln('X удовлетворяет условию')
else
writeln('X не удовлетворяет условию');
end.
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
1) Python:
nn = int(input())
k = 1 + (nn-1) // 3 * 2 + (nn-1) % 3
print (k)
2) Pascal:
var nn,k : longint;
begin
read (nn);
k:=1+(nn-1) div 3 * 2+(nn-1) mod 3;
write (k);
end.