Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
1232962
19.12.2022 17:21 •
Информатика
Pascal найти сумму всех двухзначных чисел, которые кратны трём.
Показать ответ
Ответ:
NikoYuqa1
26.06.2020 23:04
Uses crt;
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.
0,0
(0 оценок)
Ответ:
aikena2005
26.06.2020 23:04
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aregv
20.07.2020 19:31
Какой оператор необходимо добавить вместо пропуска в тексте программы, чтобы получить указанный результат? ответ введите строчными буквами....
Yaroslav1640
05.04.2021 05:23
8. Кадры - это...а) изображения последовательных фаз движения объектов или их частейб) запись изображения последовательных фаз движения объектов или ихчастейв) загрузка...
pineapplenastya1
28.06.2021 01:14
2-3 конкретных примера электронной почты?...
Artemvmmv
14.01.2022 08:03
Группа туристов отправляется в путешествие по странам европы. известно что 4 из них одновременно владеют и языком. 15 из них говорят по а 10 по . сколько туристов...
claer08
11.11.2022 20:15
Вкаждой из групп терминов один термин (или число) является «лишним». найдите и выпишите его, пояснив свой выбор а) бейсик, французский, си, паскаль, ассемблер; б)...
andbliev
11.02.2020 15:22
Дан фрагмент программы бейсик паскаль алгоритмический нц для n от 1 до 5 for n=1 to 5 for n: =1 to 5 do нц для m от 1 до 4 for m=1 to 4 for m: =1 to 4 do k: =n-m+5...
dedada
17.08.2022 15:05
❗Кто ❗Урок-практикум. Складання програм з використанням алгоритмічної структури слідування.Вітаю! Сьогодні ми поглибимо та вдосконалимо практичні навички під час...
ktjy123
10.01.2022 00:55
От чего зависит изменение внешнего вида спрайта при изменении его направления?...
yiliamasegorova
24.01.2022 13:02
Боря покупал конфеты ко дню рождения. Он набрал сначала A конфет, потом вспомнил, что человек на празднике будет d и нужно, чтобы всем досталось поровну. Даны A,...
masik01012015
21.11.2020 18:26
Як створюється список?Як можна замінити значення елементасписку?Як здійснюється об’єднання списків?Для чого призначена функція list()?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.