Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
Это ж алиэкспресс. Но вообще и у моего друга так. Возможно там внутри что-то случилось допустим: провода там перегорели или что-то похожее
Уууу...
Да это же примеры с двоичным кодом, попробуй расшифровать цифры 1 и 0 в цифры "человеческие"))
Чтобы это сделать надо знать кодировку знаков в двоичном коде
.txt - Это формат текста, состоящего из любых символов.
.rtf - Это формат документов, внутри могут быть как текст, так и картинки.