8класс, паскаль циклы! решить ! 1 - составить программу которая выведет на экран все нечетные числа от 1 до n. 2 - определить количество трехзначных натуральных чисел сумма цифр равна заданному числу n. 3- напишите программу вывода количества всех четных чисел от 2 до 100 включительно
133
221
Ответы на вопрос:
2- uses crt; var n,i,k: integer; begin clrscr; write('введите n='); readln(n); for i: =100 to 999 do if (i div 100+i mod 100 div 10+i mod 10=n) then inc(k); writeln('всего ',k); readln end.
Популярно: Информатика
-
Theduckmen24.11.2020 07:16
-
juehxbrf13.05.2021 12:32
-
megalolka2127.03.2023 09:08
-
zzzzzzz55555505.05.2023 21:35
-
NastyaBay271007.08.2020 06:51
-
NickMean19.10.2021 14:04
-
Xaker56722.03.2020 13:43
-
alenka081023.04.2022 10:07
-
Lizka647dhsn03.06.2023 07:49
-
Jiio13.04.2020 00:59