1 программа:
var x, y, t:integer;
begin
for x:=3 to 15 do begin
writeln('x = ', x);
t := x - 2;
y := 7*t*3-6*t+10;
writeln('y = ', y);
writeln('');
end;
end.
2 программа:
const pass ='45xlua';
var x:string;
a:boolean;
begin
a:= false;
while a<>true do begin
writeln('Введите пароль');
readln(x);
if x = pass then begin
a:=true;
writeln('Пароль верный');
end
else
writeln('Пароль неверный, введите еще раз');
writeln('');
end;
end.
4 программа:
var a, a1, a2, x, kol:integer;
begin
writeln('Введите четырёхзначное число');
readln(a);
x := a;
while x<>0 do begin
x:= x div 10;
kol:= kol + 1;
end;
if (kol = 4) then begin
a1 := a div 100;
a2:= a mod 100;
writeln(a1+a2);
end
else
writeln('Число не является четырёхзначным');
end.
n = int(input()) # присваиваем n - кол-во чисел
z = 0 # z - сумма всех чисел (изначально она = 0)
a = [] # a - массив состоящий из n чисел
for i in range(n): # делаем цикл для заполнения a
a.append(int(input())) # заполняем a
z = z+a[i] # так же считаем сумму всех чисел из a
x = z / len(a) # x - ср.ар. n чисел
l =abs(a[0]-x) # создаем n для того чтобы найти самое близкое к x число
m = 1 # создаем m для того чтобы найти номер самого близкого числа
for i in range(1,len(a)): # делаем цикл для нахождения m и n
if abs(a[i]-x)<l: # если число ближе к x чем число под номером n
l = abs(a[i]-x) # то присваиваем l - это число
m = i + 1 # а m - номер этого числа
print(m) # выводим номер числа
Объяснение:
