tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль, сумма нечетных чисел
Паскаль, сумма нечетных чисел (1-100), кратных 3
ERESYUR
2 23.08.2019 06:20
0
Ответы
lebedeva2303
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tttyadoyan235
26.05.2021 17:49
Быстро нужно если быстро ещё дам 50...
aruka996
26.05.2021 17:48
Даны: 1)Состав устройств компьютера: процессор, память, устройства ввода, устройства вывода. 2)Взаимодействие между устройствами компьютера: в процессе работы компьютера информация...
egor572
09.12.2020 13:12
1. Создайте базу данных. О наличие продукции на складе: блокнот в количестве 25 шт. по цене 850 тенге, календари в количестве 32 шт. по цене 1800 тенге, карандаши в количестве...
apologise
09.12.2020 13:12
A+B Все хотя бы раз решали задачу А+B. Нужно то всего лишь сложить два числа. Но в этот раз не все так просто, потому что числа даны в семеричной системе счисления. И ответ также...
404678
09.12.2020 13:10
ЗА 1 ПРИМЕР ПО ИНФОРМАТИКЕ А1:D2...
Reiny
01.10.2021 16:37
Что такое процессор и каковы его функции какими параметрами различаются процессоры Опишите устройство процессора что такое многоядерный процессор...
hunateВадим2827854
01.10.2021 16:47
Какое вредное влияние на здоровье может оказать работа с компьютером?...
новичок624
01.10.2021 17:14
Информационный объем текстового сообщения равен 2.5 Кбайта. Количество символов в тексте 2048. Какова мощность алфавита, с которого записано данное текстовое сообщение?...
mykolivannp085fw
08.12.2020 20:41
B. В какой сфере (области) показан создаваемый объект и для чего онапредназначена?RUSIA...
epicrare15
08.12.2020 20:40
Напишите программу,которая ищет сумму чётных цифр целого числа (питон)...
Популярные вопросы
Во сколько раз число 28 больше числа 7?...
3
Подчеркните слагаемые суммы , запишите выражение без скобок и найдите его...
3
Найдите значение выражения (2n-4/n-1-n/n+1): (n^2-n-4) при n=11...
1
Чему станет равна сумма возраста трех братьев в 2005 году, если известно,...
2
Решите уравнение с дробями 5/14+х=8/21...
2
Найди загадки в знакомых вам сказках. объясните зачем они включены, какую...
3
Какое число расположено на расстоянии 9 единиц от числа 5...
3
Найти значение логического выражения (x 11)& (x 10) для числа x=2...
1
Решите 3 3/5 - 1 2/2+ 2 2/5 7 3/8- 4 3/4 + 3 1/2...
1
На штативе свободно вращается невесомый рычаг общей длиной 40 см. крепление...
2
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.