tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
1. используя цикл for
1. используя цикл for вывести на экран чётные числа от 1 до 40 2. найдите произведение нечётных чисел от 1 до n
DarthRevan8
1 07.08.2019 02:10
4
Ответы
verkhozin06v
04.10.2020 02:11
1.
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
20052281202
06.08.2019 20:50
Злравствуйте, решить. переведите число 436^8 по схеме n8 n2 n16 нужно само решение и ответ. и 2df^16 по схеме n16 n2 n8...
kuznetsovapoli
06.08.2019 20:40
Дан массив a состоящий из 30 целых чисел — рост 30 учеников школы. сколько из них имеет рост больше 170 см? можно ли сформировать баскетбольную команду (в команде должно...
emiliskenderov
06.08.2019 20:40
Даны оценки ученика по n предметам. требуется определить общее количество пятерок и четверок. формат входных данных на первой строке входного файла записано натуральное...
Mornes
06.08.2019 20:40
Дан массив a из n целых чисел. требуется посчитать количество положительных элементов и количество отрицательных элементов. формат входных данных на первой строке входного...
vovsanna
20.02.2020 10:23
С клавиатуры вводятся два числа если оба числа отрицательные это нарисовать Красный квадрат со стороной 100 пикселей толщина контура 3 пикселя цвета зелёный иначе нарисовать...
akasheva1982
20.02.2020 10:29
8 класс, много пропустила, вообще ничего не понимаю, буду благодарна за...
просвятленный
20.01.2021 17:21
Які інформаційні процеси здійснюються під час таких операцій: зніманя відео, розв язування задачі...
Алинаfox11
20.01.2021 17:21
Вкажіть можливий тип величини якщо її значення дорівнює 89?...
сема891
20.01.2021 17:20
Суреттің өлшемін қалай өзгертеміз...
dimashevchuk007
20.01.2021 17:20
Қолдану деңгейі Келесі сөздерге анықтама беріңдер.Сұхбат;Интерфейс;Дизайн;Сапа;Программа;Дыбыс;Tyc;Пайдаланушы;Программалаушы;Жоба;Меню;Эргономика;фон....
Популярные вопросы
Вчём проявиласьполитическийи руси от золотой орды...
2
X-1\x+5 ≥ 2 метод интервалов ^ тут дробь...
3
Один из острых углов прямоугол. треугол. в 2 раза больше другога....
3
Футбольньй мяч массой 450 г. отлетел от ноги футболиста .определить...
2
Есть ли такое растение которое произростает повсюду...
3
За три дні в супермаркеті електроніки продали 29 ноутбуків за другий...
1
Среди книг библиотек среди книг библиотеки 12% составляют словари...
1
Уравнения, ! / - черта дроби 19/20 - х = 1/4 х= 1/12 + х = 3/4 + 1/6...
2
того, что запрятано, не замечают. о том, что не сказано люди, не...
2
Решите под действиями с ответом 1класс . 1. в маршрутном такси ехали...
3
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.