Выберите верное соответствие:
Ощущаю тепло печи
Ощущаю запах цветов
Вижу сигнал светофора
Слышу звонок на уроке
Ощущаю вкус еды
Звуковая информация
Визуальная информация
Вкусовая информация
Обонятельная информация
Осязательная информация
192
329
Ответы на вопрос:
Program task1; var i, a, b, sum : integer; begin readln(a,b); sum: = 0; for i: = a to b do sum: = sum + sqr(i); writeln(sum); end.program task2; var i, a, b, p : integer; begin readln(a,b); p: = 1; for i: = a to b do if (i mod 3 = 0) and (i mod 4 < > 0) then p: = p * i; writeln(p); end.program task3; var i, exercise, sum : integer; begin for i: = 1 to 13 do begin readln(exercise); sum: = sum + 5 + exercise; if i = 5 then writeln(sum); if i = 10 then writeln(sum); end; writeln(sum); end.
Популярно: Информатика
-
nastyaorelrus07.12.2021 00:34
-
Артём200670608.03.2021 15:29
-
данил2060102.10.2021 20:05
-
zmey775515.11.2021 02:25
-
CoreyTaylor66627.05.2022 03:39
-
sladkoe10214.02.2021 07:52
-
софи25319.07.2020 16:37
-
Васяян15.01.2021 15:02
-
mrazamar0kk12.07.2020 21:54
-
vvasilchenkosn18.08.2022 00:37