Var
flag,i,x,y:integer;
begin
x:=Random(0,99);
flag:=0;
for i:=1 to 10 do begin
write('Введите ваше число ');
readln(y);
if (x = y) then begin
flag:=1;
writeln('Дан правильный ответ!');
break
end
else
if (x < y) then
writeln('Попробуйте взять число поменьше')
else
writeln('Попробуйте взять число побольше');
end;
if flag = 0 then writeln('Все попытки исчерпаны');
end.
Program n1;
var a: array[1..15] of integer;
min,i: integer;
begin
randomize;
a[1]:=random(41)-20;
min:=a[1];
for i:=2 to 15 do
begin
a[i]:=random(41)-20;
if a[i]<min then min:=a[i];
end;
write(min);
end.
Если число четное, то оно кратно 2. Если число кратно одновременно 2 и 7, то оно кратно из произведению, т.е. 14. Первое такое двухзначное число - это само число 14. Остальные будут получаться путем добавления 14, т.е. получаем ряд 14, 28, 42. ...
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(14,99,14).Println
end.
<u>Результат</u>
14 28 42 56 70 84 98
Легко клавища ентер и пуск домой зашимаешь их и ввцдет слово гнездо но если перевести его на русский!