tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти произведение всех целых
Найти произведение всех целых чисел от а до 50 кратных 3 но не кратных 2
ВероничкаКлубничка21
3 23.08.2019 08:30
0
Ответы
bloxinilyxa
05.10.2020 14:18
Program n1;
var a,i,p: integer;
begin
readln(a);
p:=1;
for i:=a to 50 do
if (i mod 3=0) and (i mod 2<>0)
then p:=p*i;
writeln(p);
end.
ПОКАЗАТЬ ОТВЕТЫ
sergazinaaidana
05.10.2020 14:18
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
begin
var a:=ReadInteger('a=');
Writeln('П=',
Range(a,50).Where(i->(i mod 3=0) and i.IsOdd)
.Aggregate(BigInteger(1),(i,j)->i*j))
end.
Пример
a= 2
П=13299311025
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
macsimys1
19.05.2021 10:34
Узнайте, верно это утверждение или нет. {Чтобы подготовить содержание материала, вы должны сначала определить заголовки и номера страниц в тексте.} а) правда б) ложь...
vita12062006
19.05.2021 10:36
Компьютер вирустардын паида болу себебі...
angelshirina20
27.04.2021 17:25
Виберіть серед запропонованих два предмети, які відносяться до концепції «Інтернет речей».Power BankSmart - годинникЧайник з функцією керування зі смартфонуКінопроєктор...
klokova049otccwt
27.01.2020 14:25
Сделайте ! только выполнить рисунок, придумать решение и оформить решение в виде схемы. умоляю, 50 ...
zlooo2
27.01.2020 14:24
3. решите . какой объем видеопамяти потребуется для хранения 2 страниц изображения при условии, что разрешение экрана 640x480 точек и используется 32 цвета? ответ представьте...
Arkanius
27.01.2020 14:23
Объём видеопамяти равен 512 кб,разрешающая дисплея-320x320 пикселей. сколько различных уровней яркости принимают красная,зелёная и синяя составляющие при условии,что видео...
frankinshtein228
27.01.2020 14:21
На экране компьютера необходимо получить 1024 оттенка серого цвета. какой должна быть бутовая глубина...
Ketti08
27.01.2020 14:18
Изображение представлено в векторном формате,при этом его информационный объём составляет 2048 байт. пользователь увеличил изображение в 2 раза по ширине и в 2 раза по...
suleymanovrusl
27.01.2020 14:15
2. решите . сообщение, записанное с некоторого алфавита, занимает 2 страницы по 50 строк. в каждой строке записано по 20 символов. сколько символов в используемом алфавите,...
мозг302
22.10.2020 07:41
на какую характеристику процессора нужно обратить внимание при покупке компьютера (ответов может быть несколько) 1) мощность 2) объем 3) количество ядер 4) тактовая частота...
Популярные вопросы
Выберите предложение без ошибок: Not he was reading a book last holidays.he...
2
Мәтінді оқып шығып тірек сөздерді анықта...
3
5. Составьте план прочитанного текста1.2.3....
2
Иллюстрацияда бейнеленген оқиғаны...
3
Мәтіндегі шын және жалған ақпараттарды анықта. Мәтін Ресми емес хаттар...
1
14. Прочитайте высказывание и определите его основную мысль Выпиците...
2
Дано:B; C; D € aBD = 17 cmDC: 25 cmBC= ?...
2
Причины медленного процесса формирования интеллигенции...
2
1) Прочитайте текст. ответьте на вопросы по его содержанию: А) Какой...
1
В параллелограмме ABCD, угол А равен 60°, высота BE делит сторону AD...
2
var a,i,p: integer;
begin
readln(a);
p:=1;
for i:=a to 50 do
if (i mod 3=0) and (i mod 2<>0)
then p:=p*i;
writeln(p);
end.
begin
var a:=ReadInteger('a=');
Writeln('П=',
Range(a,50).Where(i->(i mod 3=0) and i.IsOdd)
.Aggregate(BigInteger(1),(i,j)->i*j))
end.
Пример
a= 2
П=13299311025