Рассмотри ситуации и определи название компьютерных программ. № ситуация компьютерная программа 1 медет создает рисунок на тему «мой дом». 2 медет демонстрирует рисунок аудитории.
223
415
Ответы на вопрос:
Var k,sum,summ: integer; begin summ: =1; repeat writeln('введите число'); readln(k); if (k mod 2< > 0) and (k< 0) then sum: =sum+k; if (k> 0) and (k mod 3=0) then summ: =summ*k; until k=0; if (sum=null) and (summ=1) then writeln('нет таких чисел') else begin writeln('сумма: ',sum); writeln('произведение: ',summ); end; end.
Популярно: Информатика
-
poiu12313.08.2020 05:34
-
Svetka72RUS24.03.2020 13:59
-
Поглит15.01.2021 05:12
-
maksgibert6120.11.2022 04:15
-
впапорпорпрорп07.01.2023 19:04
-
limbo03rus17.01.2021 04:06
-
юсик1723.06.2023 09:42
-
dobylarsen05.07.2021 15:33
-
Sfdfgc22.02.2022 01:34
-
zarrrubinka04.12.2020 22:35