(ПАСКАЛЬ)Написать программы для решения задач:
а)Найти сумму первых 10 натуральных чисел кратных 3.
б)Найти произведение первых 8 натуральных чисел кратных 7
даниил921
2
15.04.2020 11:16
10
Другие вопросы по теме Информатика
Potap4uk
04.10.2019 13:40
рвржвжчржч
04.10.2019 13:40
sasha228h
04.10.2019 13:40
game108551
28.05.2019 11:20
ovlvlk
28.05.2019 11:20
АнастасияКимЧанЫн
20.10.2020 01:53
Lox2222222288
20.10.2020 02:42
Адувалие
20.10.2020 02:33
murat200202
20.10.2020 02:42
Популярные вопросы
- Тургенєв циклу віршів у прозі спочатку дав назву ( ми , старече , мої...
2 - УТолки у biduinrobux popuax niwnicnux mcribnurib donymeno b padhy А...
3 - Скоротіть вираз -8-(3,2-x)...
2 - Дати відповіді на запитання1. Чому Мольєр висміює спроби Журдена долучитися...
2 - Write two paragraphs about your town fifty years ago and now. Fifty...
3 - Have- Wake up-Close-Arrive-Switch off-Записать 4 формы ...
2 - Заполнети кластер.Укажите свойства живых организмов...
3 - Начертите в тетради такие фигуры. Проведи в каждой фигуре все ост симметрии...
2 - 6. Задача. В результате внедрения бригадной формы труда в бригаде из...
3 - 5. Мектеп кітапханасы немесе өзің оқырманы болып табылатын кітапхана...
3
Program summa;
uses crt;
var a,b,c,d:integer;
begin
a:=7;
b:=3*a;
c:=0;
for d:=1 to b do
begin
if d mod 3 = 0 then c:=c+d;
end;
writeln('ответ = ',d);
end.
Нажми, чтобы рассказать другим, насколько ответ полезен
5,0
Подробнее - на -
Объяснение: