Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.
1 верста = 1066800 мм
44.45*16*3*500= 1066800
x = int(input())
if x in range(1,100):
print("Число входить в проміжок")
else:
print("Число не входить в проміжок")
К 4 заданию строчка про изображение не имеет отношения. Последовательность - текст в кодировке cp1251, в действительности там "9 Мая" (в 16-ричных кодах 39 20 CC E0 FF, а саму кодовую таблицу можно найти, например, в Вики)