profile
Размещено 4 года назад по предмету Информатика от 9bsch87

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

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.