tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу
Составить программу с постусловием для нахождения произведения чисел от 1 до 15 , имеющий в остатке от деления на 3 число 2.как я поняла,это числа 2,5,8,11 и 14составить программу не могу от этого зависит моя четвертная оценка!
Кристи626
2 14.06.2019 10:20
0
Ответы
Настюха20071
12.07.2020 01:15
Написал на Паскале
uses crt;
var
i,n:integer;
begin
i:=0;
n:=1;
Repeat
if i mod 3=2 then
begin
n:=n*i;
end;
i:=i+1;
Until i>15;
writeln(n);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ashaburovaa
01.04.2021 16:20
Установите соответствие между сервисами сети Интернет и их описаниями...
никита3274
01.04.2021 16:20
Определи категории, на которые подразделяются гиперссылки....
mykmin001
21.05.2020 21:13
Создайте презентацию История развития компьютерной техники...
wwwqwotressРики
21.05.2020 21:13
КТО СДЕЛАЕТ, ТОМУ ЛАЙК И ЗВЕЗДЫ...
semenem15
26.09.2019 21:14
Повідомлення займає 3 сторінки й має довжину двійкового коду 7950 байт. визначте, скільки рядків на сторінці, якщо в кожному рядку 25 символів і використане кодування unicode....
Mari2909
26.09.2019 22:20
Напишите программу на языке pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100...
katakoval
26.09.2019 21:17
Паскаль.авс заданы три точки на плоскости a(x1,y1), b(x2,y2) и c(x3,y3). нужно определить, можно ли провести треугольник через эти три точки. если да, то составьте программу...
winston63ru
26.09.2019 22:20
Вприложении pascal abc напишите программу: – для вычисления по формуле a=пr 2, если даны два ненулевых числа....
Ивангай228666
10.04.2020 13:46
Из перечня имён выберите те, которые не удовлетворяют маске ?l*ck*.*? Укажите один или несколько правильных вариантов ответа: applock.stu blink.uta blocker.htm epack.ty _click.txt...
zulya24
05.01.2022 14:46
нужна ваша по информатике 1 курс. Нужно найти число равное 0 в массиве из 100 значений A(1)...A(100) и написать это на языке алгоритмов...
Популярные вопросы
4. С ть вираз (6 — х)— (36 +x) і обчисліть йогочислове значення, якщо x=...
3
решить уравнения 5 – (х-1) = 4-х -5∙( х + 3) - 6 = 2∙(х - 4)...
1
ЛЮДИ ДОБРЫЕ С ЗАДАЧЕЙ. Груз весит P = 100 Н. Определите, какую силу нужно...
1
Вывести из формулыU=at a=?t=?...
1
Відповісти на питання 8.9. неправильна відповідь,або незрозуміло ,що БАН....
1
Составьте задачи, в которой присутствуют данные компоненты и решите её...
2
Разложите на множители: a) 16x^5y^2-12x^4y^6 б) a^4 - 81 в) 0,001 + z^3...
3
Fecioraş rädäcina cuvântului...
1
Алёнушка любила скромные полевые цветочки. Разбери по членам предложения,...
1
А8. В окончании какого слова на месте пропуска пишется буква Е? 1.ходить...
3
uses crt;
var
i,n:integer;
begin
i:=0;
n:=1;
Repeat
if i mod 3=2 then
begin
n:=n*i;
end;
i:=i+1;
Until i>15;
writeln(n);
end.