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.
По условию на каждый этаж нужно ровно одному магу.
Пусть n - искомый (самый выгодный этаж для остановки), тогда магу живущему на n этаже не придется идти ни вверх, ни вниз.
Вверх нужно подняться 2020-n магам, на на 1, 2, 3, …, 2021-n этажей соответственно. Вниз придётся спускаться n-1 магу, на 1,2,3,…, n-1 этажей.
Подсчитаем общее количество неудовольствий с учётом того, что маги не любят подниматься вверх в двойне.
Заметим, что минимум полученного квадратного трёхчлена достигается в точке n= . В силу того, что n – целое, а также парабола имеет ось симметрии, лифт должен подняться на 1441 этаж (минимум точки 1440,52)округляем до целого.
ответ:1441
P.S. не уверен, что это так, но в принципе, должно быть правильно
var i,n,s:integer;
begin
n:=-1;
s:=0;
for i:=1 to 50 do
begin
n:=n+2;
s:=s+n;
end;
writeln('сумма=',s);
end.
2. Program venom;
var v,r:real;
begin
while r<=250 do
begin
readln(r);
writeln('рост=',r);
v:=r-100;
writeln('вес=',v);
end;
end.