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.
1:
var i,n,a,s: integer;
begin
s:=0;
write('Введите количество чисел: '); readln(n);
for i := 1 to n do begin
write('Введите ', i,'-е число: '); readln(a);
s:=s+a;
end;
write('Сумма введённых чисел равна: ', s);
end.
2:
var i,n,s: integer;
begin
n:=50;
s:=0;
for i := 1 to n-1 do begin
if i mod 2 = 0 then s:=s+i;
end;
write('Сумма положительных чётных чисел меньше ', n, ' равна: ', s);
end.
3.
var i,n: integer;
s: real;
begin
n := 20;
s := 0;
for i := 1 to n-1 do begin
s := s + i / (n-1) ;
end;
write('Среднее арифметическое всех положительных чисел меньше ', n, ' равна: ', s:0:2);
end.
