Для какого числа x истинно высказывание (x*(x-8)> -25+2*x) →(x> 7) 1.4 2.5 3.6 4.7
150
227
Ответы на вопрос:
№1 var sum, i: integer; begin sum : = 0; for i : = 1 to 100 do sum : = sum + i; writeln('сумма всех чисел от 1 до 100: ', sum); end.№2var p, i: integer; beginp : = 1; for i : = 1 to 10 do p : = p * i; writeln('произведение всех чисел от 1 до 10: ', p); end.№3у вас не дано никаких условий. вот для условия: "членов прогрессии - 100, шаг - 3"var a, i, k, max: integer; begini : = 3; max : = 100; for k : = 1 to max do begina : = a + i; write( a, ' '); end; end.№4var sum, x: real; a: array[1..10] of real; i: integer; beginsum : = 0; for i : = 1 to 10 do beginwrite('введите ', i, ' число: '); readln(a[i]); sum : = sum + a[i]; end; writeln('сумма введенных чисел: ', sum); end.
Популярно: Информатика
-
artyushin07306.01.2021 05:10
-
Победитель1721.03.2021 04:05
-
bobr60009.05.2020 05:24
-
Игнор118.05.2023 23:13
-
nif428.06.2022 08:50
-
shshdbAsan17.10.2021 09:54
-
Никиланджело29.01.2022 09:00
-
Rinyasan28.11.2021 17:11
-
lili2003love1202.05.2023 00:48
-
Ivanna111111105.01.2022 20:18