Войти Регистрация Спроси ai-bota

Паскаль, сумма нечетных чисел (1-100), кратных 3

Показать ответ

Ответ:

moon137

05.10.2020 14:04

Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=1 to 100 do if (i mod 3=0) and (i mod 2<>0)
then sum:=sum+i;
writeln(sum);
end.

0,0(0 оценок)

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

and290620041

23.12.2021 18:04

Самостоятельная по информатике...

Kiralex71

17.09.2022 11:48

1) Записать представление десятичных чисел 61, -98, -56 в памяти компьютера в формате целых чисел со знаком. 2)Записать вещественные числа 35,4625 и 0,000006846 в...

CorjikPlay

21.03.2023 01:33

Информатика,8 класс Установите соответствие Табличный курсор Ячейка Книга 1 Документ электронной таблицы, состоящий из листов, объединённых одним именем, и являющийся...

ENOT234u

04.10.2020 08:47

ответьте на эти вопросы >...

DarvinaDark

16.01.2020 06:18

ИНФОРМАТИКА Логическая схема нужна...

genЕsis

23.08.2022 10:07

Пять примеров информац процессов искусств протекает в технической системе...

gritana

14.06.2020 16:06

Выполнить в табличном виде: источник, приемник, характер передачи...

elenazarubina1

03.02.2020 09:56

Составить программу вычисления значений функции F(x) на отрезке [a, b] с шагом h. F(X) = sinx-cosxБЛОК-СХЕМУ !...

ржакаmaker

11.08.2020 16:50

Установите соответствие: Тактовая частота Частота системной шины Разрядность Кэш-память 1 набор сигналов для обмена информацией 2 Количество бит данных, которое может...

suleymanovrusl

14.11.2022 03:11

Составьте таблицу истинности F(A+B).C+(A+C).B...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку