(x>0) and (x<5) это будет на языке паскаль
1-10) 1 2 3 4 5 6 7 8 9 A
11-20) B C D E F G H I J K
21-30) L M N O P Q R S 10 11
31-40)12 13 14 15 16 17 18 19 1A 1B
41-50) 1C 1D 1E 1F 1G 1H 1I 1J 1K 1L
51-60) 1M 1N 1O 1P 1Q 1R 1S 20 21 22
61-70)23 24 25 26 27 28 29 2A 2B 2C
Var i: Integer;
begin
writeln('Введите число');
readln(i);
if (i>9) and (i<100) then writeln('Является') else
writeln('Не является');
end.
Program mashina;
Uses crt;
var s1, s2, s3: string;
begin clrscr;
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
writeln;
s1:=copy(s1,3,2);
writeln('s3 = ',s1+s2);
readln ;
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(ReadInteger('Введите размер массива->'),-100,100); Write('Начальный массив: '); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; Write('Конечный массив: '); a.Println;
end.
Пример:
Введите размер массива-> 10
Начальный массив: -100 84 -35 -26 -33 63 36 22 60 89
Конечный массив: 84 -26 63 22 89