Перевести из Паскаля на Кумир программы: ЗАДАНИЕ 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.

158

221

Посмотреть ответы 1

Ответы на вопрос:

HeU3BecN0cTb

Информатика

4,6(42 оценок)

Толщина - изменяет толщину линий для заданного инструмента. Фигуры - содержит готовые фигуры для вставки

Объяснение:

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.