tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу в паскаль,
Напишите программу в паскаль, которая на отрезке от 10 до b находит сумму всех нечетных чисел, кратных трем. (10
Гвендолин11
1 18.09.2019 17:50
1
Ответы
джокер65
26.08.2020 22:58
Program pr1;
var i,b:integer; a,s:real;
begin
readln(b);
for i:=1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 <> 0) then
s:=s+a;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
svr2
24.10.2020 12:30
Однажды в Артеке за круглым столом оказалось пятеро ребят родом из Москвы, Санкт- Петербурга, Новгорода, Перми и Томска: Ваня, Саша, Вова, Серёжа и Артём. Москвич сидел...
настя7566
24.10.2020 12:29
Для чего служат колонки и наушники?...
vadimamaniya
13.09.2019 19:00
30 ! 5. письмо вася и его друг том увлекаются криптографией, поэтому часто пишут друг другу зашифрованные послания. сегодня вася получил от тома такое сообщение: 72...
шкальник2281337
29.08.2019 02:30
Сколько существует видов отказов формального исполнителя...
helpppppo
15.09.2019 23:20
Составить программу, которая вычисляет периметр прямоугольника со сторонами a, b ,c....
Rudisaleh
15.09.2019 23:20
Сколько бит информации содержит сообщение объемом 3 мбайт...
liza1430
15.09.2019 23:20
Врезультате деления 1111 на 101 в двоичной системе будет...
Natalye71
15.09.2019 23:20
Скодько байт информации содержит сообщение объемом 2,5 гбайт ?...
ащиза
15.09.2019 23:20
Преобразуйте высказывание используя логические переменные и символьные обозначения логических операций: не (число 20) и (число чётное) не (число 10) или не (число чётное)...
crasavchik
15.09.2019 23:20
Дать определение корневой папки (корневого коталога)...
Популярные вопросы
3. определите последовательность событий, к отмене крепостного права,...
1
Слово речь разобрать по составу. ? ?...
2
15 словосочетаний количественные и порядковые числительные...
1
Произведений, где основой является музыка была музыка стало произвидение...
2
Какие члены предложения бывают однородными? когда ставим запятые,...
3
Разобрать в синтаксическом разборе сегодня мне нужно пойти к глазному...
2
Найдите стороны прямоугольника если известно что его периметр равен...
3
Проверочная работа {за 2-ю четверть}...
1
Не безразлично пишется слитно или раздельно?...
2
Напишите характиристику к картине и. э. грабаря февральская лазурь...
1
var i,b:integer; a,s:real;
begin
readln(b);
for i:=1 to b-9 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 <> 0) then
s:=s+a;
end;
writeln(s);
end.