Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
пахан50
04.10.2020 05:28 •
Информатика
1.вивести 12 елементів послідовності: 10,13, знайти їх суму.
Ответ:
MilkyWay3355
02.10.2020 08:19
Var i,a,s:integer;
begin
i:=0;
a:=10;
while(i<>12) do begin
write(a,' ');
s+=a;
a+=3;
i+=1;
end;writeln();writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
artiushkin213
26.11.2022 04:56
составьте таблицу истинности для логического выражений: 1)(avb) /\ (- avb) 2) (x- y) - ¬z ...
11707
09.09.2022 00:13
Расшифруйте следующее сообщение(3, 9) (3, 1) (1, 12) (3, 5) (1, 5) (3, 2) (2, 2) (1, 5) (1, 12) (3, 5) (1, 5) (3,2) (2, 2) (1, 5) (1, 3) (1, 12) (3, 10) (1, 12) (2, 1)...
Wer77
16.03.2022 01:55
Какая часть компьютера обрабатывает информацию? a)клавиатура; b)память; с) просмор; d)монитор....
Vceohenploxo
29.03.2021 03:36
Скорость передачи данных через adsl-соединение равна 64000 бит/с. через данное соединение файл размером 625 килобайт. определите время передачи файла в секундах...
Дллллллллллл
15.05.2021 12:06
Вчем заключается алфавитный подход к измерению информации?...
marinaerm
15.05.2021 12:06
Какие программы не используются для архивации данных: winrar winzip windjvu windows...
Прост2004
17.06.2021 10:24
Уровень b. напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой....
malvinka011
05.05.2021 21:42
Где машина? где страна са-ар-мо-ген-ти-свал-на! кто в пруду? кто на лугу? ре-бе-ля-нок-же-шка-гу!...
Міла11111
29.05.2022 13:56
Дан одномерный массив. Запиши верный ответ.−17 28 0 −3 4 12Значение элемента массива — 28.Индекс элемента массива — ...
mkmoonlightovwm0o
01.01.2021 15:33
ИНФОРМАТИКА ОЧЕНЬ я не могу найти ответы в интернете) Прикрепляю фото, сколько нашла ответов Тестовые задания по теме Мультимедийные технологии » Тестовое задание по...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
i:=0;
a:=10;
while(i<>12) do begin
write(a,' ');
s+=a;
a+=3;
i+=1;
end;writeln();writeln(s);
end.