tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны 10 любых чисел ,
Даны 10 любых чисел , найти произведение только тех , которые лежат в диапазоне от 20 до 40
Даник1111112
1 24.06.2019 15:00
0
Ответы
Нюра959
20.07.2020 01:58
Program pbc;
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
end.
ПОКАЗАТЬ ОТВЕТЫ
lotarev20021
20.07.2020 01:58
Всё работает, пробуй.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nazaroline
29.07.2019 13:30
50 ! ! какой объём памяти необходимо выделить под хранение растрового изображения размером 240*192 пикселя,если в палитре изображения 65536 цветов....
PomidorkaX3
21.02.2022 01:24
ОДНО ЗАДАНИЕ Кто хорошо знает информатику? Буду очень благодарен...
madara014
21.02.2022 01:31
Составьте условие одной задачи на тему «Вложенные циклы. Предложите алгоритм решения задачи и разработайте соответствующую программу....
romchik228666
21.02.2022 01:50
Программирование в питоне Задание 1. Усовершенствовать программу (дополнить ее функционал согласно инструкции).Задание 2. Дано целое число, лежащее в диапазоне от...
asfandiyrova201
21.07.2019 20:00
Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения...
ApTeM098
21.07.2019 20:00
Выявить ошибки.квадратное уравнение. program kvadrat; var d,a,b,c: integer; x1,x2: real; begin writeln( a,b,c ); readln(a,b,c); d: =b*b*-4*a*c; if d 0 then writeln(...
GrootShkolnik
26.10.2020 11:48
среди приведенных ниже трёх чисел,записанных в десятичной системе счисления,найдите число,сумма которого в шестнадцатеричной записи наименьшая.В ответе запишите...
Helпаните
09.08.2019 10:40
Спишіть, розставляючи розділові знаки. виконайте синтаксичний розбір речення. визначте частини мови. ліс закутаний у м’яку білу габу стоїть непорушно облитий місячним...
VaDiMiR3000
09.08.2019 10:40
Сейчас возраст мальчиков в 3 раза больше, чем 10 лет назад. сколько лет было мальчику 10 лет назад и сколько сейчас ?...
msvorobeva123
09.08.2019 10:40
Що означає фразеологізми спіймати на гачок і пахне смаленим...
Популярные вопросы
Деңгейлік тапсырма 4. Көсемшелерді қатыстыра отырып, дең- гейлік...
2
Абылай хан – тарихи тұлға Сөздерді сәйкестендір.мемлекетқазақсаясируларықызметқайраткері...
1
Почему дружба всегда распадается?...
2
Решить задачи используя схемы электрические схемы.1. По...
3
8 УПР МЕНЯ УЧИЛКА 2 ПОСТАВИТ И СОЖОЕТ А ОТ МЕНЯ РЕСПЕКТ...
3
Укажіть, яке суспільне явище викриває поет у першій строфі роману...
3
Назовём данную таблицу TEMPERATURA. Месяц1 2 3 4 5 6 7 8 9 10...
1
Сколько видов организмов разных групп внесено в Красную книгу...
3
1. Порівняйте зображення поперечних зрізів гілок липи на мал....
2
Параграфтың мінін және суретті пайдалана отырып, табиғаттағы...
3
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
end.