Перевести из Паскаля на Кумир программы: ЗАДАНИЕ 1
Var
i, s1, s2, s3, s4, n: integer;
begin
write('n = ');
readln(n);
s1 := 0;
for i := 1 to n do
begin
s1 := s1 - i;
s2 := s2 - sqr(i);
if i mod 2 = 0 then s3 := s3 - i;
end;
for i := 10 to 99 do s4 := s4 - i;
writeln('Сумма обратных n натуральных чисел: ', s1);
end.
ЗАДАНИЕ 2
Program factorial;
begin
var A := ReadLnInteger('Введите факториал числа A =');
Write(A, '!! = ');
var B : integer := A;
while A > 2 do
begin
A -= 2;
B *= A;
end;
WriteLn(B);
end.
ЗАДАНИЕ 3
var i,j,n:integer;
sum,d:real;
begin
writeln('Введите n');
readln(n);
sum:=0;
for i:=1 to n do
begin
d:=0;
for j:=1 to i do
d:=d+sin(j);
sum:=sum+1/d;
end;
writeln(sum:8:3);
readln;
end.
ЗАДАНИЕ 4
Program Zad4;
var m,n,x,y:integer;
begin
writeln('Введите натуральные числа m,n');
readln(m,n);
if m y:=x;
while x begin
if (x mod m=0)and(x mod n=0) then write(x,' ');
x:=x+y;
end;
end.

23245086    3   15.04.2021 15:53    0