Было:
const
N = 10;
var
i, S: integer;
m: array [1..N] of integer;
begin
randomize;
S := 0;
for i := 1 to N do
begin
m[i] := random(201) - 100;
writeln(m[i]);
end;
for i := 1 to N do
if m[i] mod 2 = 0 then
S := S + m[i];
writeln('Summa = ', S);
readln;
end.
Стало:
цел i, S, N
N := 10
цел таб m[1:N]
алг
нач
S := 0
нц для i от 1 до N
m[i] := irand(-100, 100)
вывод m[i], нс
кц
нц для i от 1 до N
если mod(m[i], 2) = 0 то
S := S + m[i]
все
кц
вывод "Summa = ", S
кон
Function gcd(a,b: longint): longint;
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
function lcm(a,b:longint):longint;
{ Нахождение НОК }
begin
lcm:=a*b div gcd(a,b)
end;
begin
Writeln('НОД(36;54;18;15)=',lcm(36,lcm(54,lcm(18,15))))
end.
Результат выполнения программы:
НОД(36;54;18;15)=540
var
a, i, count, s: integer;
begin
repeat
if(i = 100) then break;
readln(a);
if(abs(a) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else if(a mod 9 = 0) and (a <> 0) then begin
inc(count);
s := s + a;
end;
if(a <> 0) then inc(i);
until(a = 0);
writeln('Среднее арифметическое: ', s / count);
end.
//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
Автоматизированная система управления(сокращённо АСУ) — комплекс аппаратных и программных средств, а также персонала, предназначенный для управления различными процессами в рамках технологического процесса, производства, предприятия.