var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Разрешение экрана тоесть какого размера твой экран. Разрешение так же на телевизорах. Тоесть есть 2048x1024 (Мега-большой монитор) А есть 600x800
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(50, -99, 99);
a.Println;
a[1::2].Average.Println
end.
<h2>-93 66 -7 -12 -1 -21 -56 64 36 64 -45 12 13 -22 -40 -80 10 -77 -82 10 -94 -78 43 14 18 77 -90 -66 12 82 -66 17 33 77 -20 -51 -26 30 -92 74 7 34 76 98 11 -12 45 -23 13 59</h2><h2>13.44</h2>
program raf105;
var x,y,day:real;
begin
x:=10;
while day<7 do
begin
x:= x+x/100*10;
y:= y+x;
day:= day+1;
end;
writeln('Суммарный путь, который пробежит спортсмен за 7 дней тренировок: ',round(x),' км.');
end.
<em>Программа написана на языке PascalABC</em>