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

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

Ответ:

aitxam

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 оценок)

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

ЛАЙФСТААААААЙЛ

10.05.2023 09:09

даю 15 б.дам еще гиперссылка...

abdulla805

10.05.2023 09:09

Надо написать 2-3 предложения о лошадей.зароние...

Кристина01012004

28.05.2020 12:29

Решите на Python 3.81. Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число.2. Дано трехзначное число....

andrey1shpirko

03.06.2022 16:05

введи свое имя а) выведи на экран 1-й и 3-й символы б) определите, совподпют ли 1-й и последний символы вашего имениМеня зовут Бегимай...

mgolubev13

09.07.2022 04:23

Составить блок-схему и программу на языке c++ которая выводит на экран фамилию студента вашей группы по первой введённой букве запроса...

АннаЛео147

11.08.2022 22:04

Заполните пропуски числами. =1024 байт= == 3)2кбайт==...

baltika9

11.12.2022 09:40

Исполните фрагмент алгоритма при a=4 и b=2 a 7 a: = a + 1 b: = b + a Определите значение переменной b после выполнения фрагмента алгоритма....

лиза2291

06.08.2020 23:08

1)С какого оператора реализируется цикл с предусловием а)while b) do...while c)for d)repeat e)while...do 2)Укажиье правильную запись оператора for a)for (1 = 2:...

chapa00

01.06.2021 21:52

Дано: a=22(10), b=24(8). Какое из чисел c, записанных в двоичной системе, отвечает условию b меньше с меньше с подробным решением)...

KaRRRtavbly

07.12.2022 18:32

Задание по информатике распилите подробно ....

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

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