(С подсказками, не надо - удали)
var r,ch,z: integer;
begin
Randomize;
r:=random(10)+1;
z:=5;
repeat
write('Отгадайте число от 1 до 10. У вас ',z,' попыток :');
readln(ch);
z:=z-1;
if z>0 then
begin
If ch<r then Writeln('Неправильно! Загаданное число больше.')
else If ch>r then Writeln('Неправильно! Загаданное число меньше.')
else writeln('Вы угадали!');
end
else Writeln('Попытки кончились!');
until (z=0)or(ch=r);
End.
PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
N = int(input("n = "))
for i in range(0,n+1):
print (i)
Var n,m:integer;
mn:set of integer;
b:boolean;
begin
write('n = '); readln(n);
write('m = '); readln(m);
mn:=[];
while n>0 do
begin
mn:=mn+[n mod 10];
n:=n div 10;
end;
b:=false;
while m>0 do
begin
if (m mod 10) in mn then b:=true;
m:=m div 10;
end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n = 13579
m = 6541
Да