Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
egubiev
17.07.2022 08:53 •
Информатика
Паскаль инфа 9 класс хелп запрлсить 10 целый чисел , вычислить произведение чисел , которые в отрезок от 10 до 20
Показать ответ
Ответ:
Galinachlen
26.08.2020 10:49
Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
tamilatumasheva
26.02.2023 18:44
На какие во Робот ответит да? (Положение Робота изображено на картинке). слева стена? клетка закрашена? клетка чистая? снизу свободно? сверху свободно? справа стена?...
Вовка753
22.07.2022 17:48
Что такое www?1.всемирное хранилище информации в сети интернет 2,хранилище информации в сети интернет. 3. Всемирное хранилище информации...
kuckovadiana587
24.10.2022 05:24
Информатика 8 класс Ввод/вывод данных в...
joseska228
30.04.2023 15:16
решить паскаль y:= abs(cos(Pi) - sin(Pi/2))...
Лика1508
04.04.2020 21:03
Строительная организация планирует сооружение домов типа Д1, Д2, Д3 с 1-комнатными, 2-комнатными и 3-комнатными квартирами. Один дом Д1 сосоит из 10 одно-, 50 двух-,35 трехкомнатных...
ramzinakadenbaeva
09.05.2023 18:06
ПАСКАЛЬВвести номер студента из списка. Вывести его фамилию. решить через оператор if...then...
leshakonovalov2
01.01.2020 22:28
Вы ведете прямую трансляцию в социальной сети. Что вы НЕ сможете сделать во время трансляции? Отправлять сообщения в чат трансляции Отключить чат трансляции Поделиться ссылкой на...
ZevsGromov
15.03.2021 16:31
На языке програмирования ПИТОН!! По заданным координатам точек А и В, вычислите длину отрезка АВ. Подсказка: Расстояние d между точками А (хa, уa) и В (хb, уb) выражается формулой...
Kseniaa26
02.02.2021 01:56
Кассир по продажам билетов в кинотеатр...
Deniz1337
27.12.2021 17:08
Какое по необходимо для эл почты...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.