Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
дашик27
26.12.2022 14:12 •
Информатика
Создайте программу в паскале, которая будет выводить на экран числовой ряд из 10 элементов, элементы в этой числовой последовательности чередуются по принципу: положительный, отрицательный. работает так: окно вывода: 1 -2 3 -4 5 -6 7 -8 9 -10
Показать ответ
Ответ:
sansankushnir2p08nd5
26.08.2020 19:29
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(10,i->i.IsEven?i+1:-(i+1)).Println
end.
Результат
1 -2 3 -4 5 -6 7 -8 9 -10
0,0
(0 оценок)
Ответ:
rodnevadaria
26.08.2020 19:29
//Pascal
var i: integer;
begin
for i := 1 to 10 do
if i mod 2 = 0 then write(i-(i+i), ' ')
else write(i, ' ');
writeln; readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mahinaboboeva
05.10.2022 08:25
40 . хотя бы 2 решите ....
Zufar1618
13.10.2020 17:53
Ятупой определить корни данного уравнения с точностью до 5 знака после запятой. 4(cosx)^2-x2-x+1=0...
mrpersik1
20.03.2022 11:45
Выполнить это , как это делать на калькуляторе на пк....
vladgrigav
27.01.2022 18:41
С! на языке free pascal ide или abc pascal площадь. по данным натуральным числам a,b,m,k найти (с округлением с избытком до целого числа) площадь пересечения полуплоскоси...
Kanesan
17.07.2021 03:46
40 ! ! сделать алгоритм на паскале. задать любое число n и вычислить сколько нечетных чисел между 0 и n. алгоритм сделать через while....
zhenyazhitenko
10.05.2020 06:42
Решить! если можно с объяснением...
zhan310304
05.10.2021 15:49
Фальшивомонетчики.лиса делает монеты легче а кот тяжелее.у буратино 3 монеты и одна из них фальшивая.как за 2 взвешивания узнать какая фальшивая.условия: если 1 больше...
HumanRight
20.01.2022 17:30
Решить по информатике в паскале. : получить массив c, записав на чётные места элементы массива a, а на нечётные-элементы массива b....
aisasiada
27.04.2020 19:47
Вот программа которую нужно изменить так чтобы окружности образовали рамку вокруг окна. (pascalabcnet). uses graphabc; var x, y, r: integer; begin r : = 10; x : = 10; y...
anna19762
07.03.2020 13:13
Закодируйте текст в unicode (2сс): укажите свой ответ сколько бит занимает этот код? каждый символ изначального текста занимает 12 бит. укажите свой ответ получившийся...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(10,i->i.IsEven?i+1:-(i+1)).Println
end.
Результат
1 -2 3 -4 5 -6 7 -8 9 -10
var i: integer;
begin
for i := 1 to 10 do
if i mod 2 = 0 then write(i-(i+i), ' ')
else write(i, ' ');
writeln; readln;
end.