Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ask52
09.11.2020 15:49 •
Информатика
Составить программу паскаля дан ряд чисел 5 9 13 17 и т. д. составить программу которая находит элемент стоящий на 20 месте
Показать ответ
Ответ:
dyusembekov1
25.09.2020 16:56
//PascalABC.NET 3.1 сборка 1219
begin
var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
PrintLn(a);
end.
или более сложно
const
n = 20;
var
i, a: integer;
begin
a := 5;
for i := 2 to 20 do
a := a + 4;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NomD123
17.02.2022 14:27
Переменная R равна количествутреугольников, а переменная B-количеству овалов а) отметь строки, для которых высказывание R =B истенно б) отметь строки, для которых R =B ложно...
Rushana14
12.11.2022 09:10
Каким образом можно защитить свой компьютер от внешнего воздействия?...
alena13gerda
09.05.2020 21:07
Изучи предложенный фрагмент программного кода и определи направление поворота робота: Влево на 180Влево на 360вправо на 180право на 360...
Тлопап
25.02.2023 06:23
Даны три числа. Найдите разность, возведённую в квадрат, между всеми парами чисел. Нужно написать программу на Паскале....
Ева11111111111111484
02.04.2023 20:36
Напишите блок схему. умоляю скорее ! program pr1; var i,b: integer; a,s: real; beginreadln(b); for i: =1 to b-9 dobeginreadln(a); if (a mod 3 = 0) and (a mod 2 0) thens: =s+a;...
Здохненко0403
19.01.2021 15:55
Информатика 10 класс хелп информатика...
МагистрСемен
26.09.2021 15:26
2. берілген ақпараттан компьютерлік курылгыларды анықтаңыз.2. b) қурылғыны «компьютердің су регі» деп атайды. оның негізгі қызметі болыпақпаратты өңдеу және есептеу жумысы...
лиза5222
16.10.2020 04:39
Записать на языке Паскаль алгоритм решения задачи о графике тренировок спортсмена. Задача: Спортсмен приступает к тренировкам по следующему графику: в первый день он должен...
стэа
15.07.2020 11:31
Дана строка,подсчитать количество вхождений слова кот в данную строку в pascalABC.NET...
dimagurkun2016
15.02.2020 16:15
Проект на тему ось земли для 2 класса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
PrintLn(a);
end.
или более сложно
const
n = 20;
var
i, a: integer;
begin
a := 5;
for i := 2 to 20 do
a := a + 4;
writeln(a);
end.