Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
джон7777
22.02.2023 10:05 •
Информатика
Составить программу в паскаль. даны числа от 1 до 100. четные числа увеличили в 2 раза, нечетные заменить 0
Показать ответ
Ответ:
kristinalobanova6
05.10.2020 17:03
Var
A:integer;
Begin
For A:= 1 to 100 do
Begin
if A mod 2 = 0 then Write(A*2,' ')
else Write('0 ')
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
vaflya2007
30.07.2021 15:28
Запишите выражения на языке программирования Паскаль....
Настя11111111110
19.12.2022 10:45
С клавиатуры вводится натуральное число К. Напиши программу, которая выводит на экран (по одному числу в строке) числа от 1 до К, кратные 2 и 3, но не кратные 4.(паскаль)...
АндрейXXXМ
18.09.2021 02:43
Створити проект для обчислення суми n чисел перше з яких дорівнює у а кожне наступне у два рази більше попередньогоБудь ласка до ть...
Elinasuper18
02.03.2022 02:39
сделать информатику Нужно Составить функциональную схему для логического выражения: НЕ(а ИЛИ в) и с...
Звёздочка1790
05.07.2020 19:53
два задания. ЛЮДИ, НА ЗАВТРА...
turysbekaida
07.05.2022 07:22
Цикл во фрагментепрограммы:а:=0,3;S:=0;i:=1;repeati:=i+1;b:=1/i;S:=S+а;until b a;выполнится:...
СергейРовкин
19.11.2022 02:06
1. Обозначение целочисленного типа данных в языке Паскаль а) integer б) real в) char г) string 2. В записи вещественных чисел целая часть от дробной отделяется: а) пробелом...
sofiyakasheeva
22.03.2022 04:02
По выражению summa:=sqr(x)+3*a составить блок-схему...
Ramires1
05.06.2020 16:46
Чему будет равна переменная c после выполнения программы: a=43 b=6 a=a//b+2 c=a%b-2...
uchikha2016
02.04.2023 01:43
Укажите, какие из приведенных указаний вывода данных являются правильными: * Write (X; Y); Write 5, Write (X, Y) Write A, B; write (A, B * C)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A:integer;
Begin
For A:= 1 to 100 do
Begin
if A mod 2 = 0 then Write(A*2,' ')
else Write('0 ')
End;
End.