Регистрация
тупая1294
21.09.2022 16:20
Информатика
Есть ответ 👍

Совсем маленькая нужна !

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

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

Lina111334
Lina111334
4,4(18 оценок)
Program task1; var  i : integer; function    kub (x : integer) : integer;   var k : integer;   begin    k: = x*x*x;     kub: = k;   end;     begin   for i: = 9 downto 1 do  if i mod 2 = 1 then  write(sqr(i),' ');   writeln;   for i: = 9 downto 1 do  if i mod 2 = 1 then  write(kub(i),' '); end.program task2; var  i, sum : integer; begin  sum: = 0;   for i: = 1 to 150 do    if (i mod 5 = 0) or (i mod 7 = 0) then      sum: = sum + i;   writeln(sum); end.program task3; var  i, sum : integer; begin  sum: = 0;   for i: = 10 to 50 do    if (i mod 4 = 0) and (i mod 6 < > 0) then      sum: = sum + i;   writeln(sum); end.program task4; var  i, p : integer; begin  p: = 1;   for i: = 10 to 50 do    if (i mod 2 = 1) and (i mod 13 = 0) then      p: = p*i;   writeln(i); end.

Популярно: Информатика