1. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые четные и двухначные'); for i:=1 to n do if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4); end. 2. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые кратны 4 и трехзначные'); for i:=1 to n do if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4); end. 3. var i,a,m:integer; begin m:=3; for i:=1 to 10 do writeln(i,' * ',m,' = ',i*m); end.
#Виводимо на екран напис "Введіть число X"
print("Введіть число X")
#Задаємо значення змінної x, як введене у консоль значення
x = int(input())
#Задаємо змінну N, яка буде містити значення числ від 10 до 50
N = 10
#Задаємо цикл, у кому будемо множити введене число x на всі числа від 10 до 50
while N >= 10 and N <= 50:
a = N * x
print(a)
N = N + 1