Регистрация
лиза1234567891011121
14.02.2023 09:37
Информатика
Есть ответ 👍

Это отдельные задачи, которые надо выполнить на Visual Basic, и предоставить скриншоты. a) Составьте программу, которая выводит на экран следующие
ряды чисел: 3, 6, 9, 12, 15
30, 25, 20, 12, 10, 52.
b) Составьте программу, которая выводит на экран кубы четных
чисел от 1 до 30.
c) Найти произведение чисел на промежутке от 1 до 10.
d) Найти произведение нечетных чисел на промежутке от 1 до
20.
e) Подсчитать сколько чисел кратных 5 на промежутке 1 до 50.

270
335
Посмотреть ответы 1

Ответы на вопрос:

bodleva06
bodleva06
4,4(52 оценок)
Var   n: integer; begin   write('n='); read(n);   writeln('десятков- ',n div 10);   writeln('единиц- ', n mod 10);   writeln('сумма цифр- ', n div 10+n mod 10);   writeln('произведение цифр- ', (n div 10)*(n mod 10)) end. тестовое решение n=49 десятков- 4 единиц- 9 сумма цифр- 13 произведение цифр- 36

Популярно: Информатика