tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу на паскале.вычислите
Напишите программу на паскале.вычислите произведение чисел от 1 до 100 кратных 3
ivan080206
3 19.06.2019 09:40
1
Ответы
ashueva1919
15.07.2020 17:48
Var
i, p:longint;
begin
p:=1;
for i:=1 to 100 do
if (i mod 3)=0 then p:=p*i;
writeln('resuktat ',p)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mulanmango
12.02.2021 12:45
решить эти примеры по ОАИП...
ваня1340
12.02.2021 12:46
Программа имеющая единственный результат записсаный в ячейку памяти Имя которой совпадает с именем самой программы называется ...
Vov1111
12.02.2021 12:52
Подготовь проект по сюжету сказки хочу узнать напиши основной вопрос темы на которых хотелось бы узнать ответ Мой проект Выбери название проекта с кем вот хотел вместе...
Emilsekas
12.02.2021 12:52
РЕШИТЬ, ПОСТАВЯТ НЕЗАЧЕТ язык PascalABCВозвращаясь с турслета, Вася пришел на станцию и хочет уехать в Москву. На станции не оказалось расписания электропоездов, но у...
wionk
12.02.2021 12:54
функции в которой реализован вычисления очередного назначение через вычисление её предыдущее значение называется...
vladpasin34
12.02.2021 13:04
Пользователь вводит число. Написать программу, которая выведет все числа кратные введённому, в диапазоне от 361 до 399. C++...
кракодиллох1
12.02.2021 13:05
Не используя никакие операции кроме сложения, умножения и вычитания вычислить 8 значений выражения 3x2-7x2y2-x2y-5xy2+6y2-2xy-5x+y-2 Во всех выражениях х имеет одно и...
danilukm548p09te8
12.02.2021 13:05
6. Расскажите о шаблонах заголовков MS Word....
daryaromanovsk
12.02.2021 13:06
Ние: Найти сумму цифр трехзначного числа....
balashova1296
12.02.2021 13:08
PascalABC.NET 1. Большее из двух чисел заменить разностью большего и меньшего, а меньшее - произведением данных чисел.2. Даны два числа. Сравните числа и в третью ячейку...
Популярные вопросы
решить все задания! даю все что есть!...
2
Как называется это растение?...
1
(3²+1)(3⁴+1)(3⁸+1)(3¹⁶+1)(3³²+1)- ×3⁶⁴ a) B) c)-D) E)...
1
У скільки разів треба збільшити ребро куба щоб його обєм збільшився...
3
Решить числовой ряд: 1) 11, 8, 12, 8, 16, 13, 17, __, __ ; 2)7, 10,...
3
Асставьте знаки препинания. Укажите два предложения, в которых нужно...
2
Как называется это растение?...
2
Как называется это растение?...
3
Напишите хокку со словами холодильник, еда и лягушка надо! Заранее...
1
19.Какое словосочетание нельзя заменить синонимичным словосочетанием...
2
i, p:longint;
begin
p:=1;
for i:=1 to 100 do
if (i mod 3)=0 then p:=p*i;
writeln('resuktat ',p)
end.