VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.
Петя заболел на зимних каникулах. Пока все играли в снежки, катались на лыжах с горки...Петя сидел дома и учил Пушкина. В пятом классе они как раз проходят произведения Пушкина и Марья Ивановна задала на каникулы учить. Петя сам себя не узнал, так как он был круглым двоечником. Если бы не его простуда, он бы сейчас гулял с друзьями и получил по стихотворению 2! Петя обиделся на своих друзей, потому что они даже не пришли узнать, что он, да как он!
В школе, Петины друзья заметили, что из друга нет и позвонили ему, но он не поднял трубку домашнего телефона. Тогда друзья решили прийти к нему домой и узнать, что случилось!
Когда они пришли, у Пети на лице засияла улыбка. Он с радостью открыл им дверь! Они пили чай и вместе делали уроки!
<span>В прямом - действие выполняется сразу после ввода командной строки. В программном - после компиляции, сборки всех действий автоматически - все описанные действия попорядку</span>
Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>