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.
Блок схемы рисуется так, если что не понятно пиши
var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.
Получите заспишитесь)
const n=12;
var i,k,l,o:integer; a:array [1..100] of integer;
begin
writeln('Введите кол-во осадков: ');
for i:=1 to n do begin
write('За ', i,'-й месяц: ');
readln(a[i]); l:=l+a[i];
if a[i]<30 then inc(o);
end;
write('О<span>бщее количество осадков за год</span>: ', l,' К<span>оличество засушливых месяцев</span>: ',o);
end.
PascalABC.NET (версия 3.2, сборка 1370 от 24.12.2016)
<span><span>MatrRandom(m n a b) - </span>Возвращает двумерный массив размера m x n, заполненный случайными целыми значениями от </span>a до b