Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
thymbalovajulia
01.03.2023 10:12 •
Информатика
Нужна ! паскаль! ввести 2 целых числа и вывести на экран четные и нечётные числа,но чтобы четные были со знаком "-" минус.используя команду if (i mod 2) < > 0 then
Показать ответ
Ответ:
hfb1
07.10.2020 21:25
Program abc;
var a, b, k: integer;
BEGIN
read (a, b);
for k:=1 to (b-a) do
begin
if (a mod 2) <>0 then
writeln ( a)
else
writeln ('-', a);
a:=a+1
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Diankamilanka2005
27.03.2021 19:49
Паскаль 1. напишите заголовки следующих подпрограмм: а) процедуры, имеющей один целочисленный параметр-значение и один вещественный параметр-переменную; б) процедуры,...
Nastysha222
12.07.2022 12:14
1.напечатать ряд из n раз повторяющихся чисел. 2.для вводных с клавиатурой произвольного количества чисел.найти сумму и их количество . 3.найти сумму: 1/5+1/10+1/+1/50...
даун47
18.12.2021 14:07
Какие еще методы используются для форматирования условия...
MechtaJasnaja
06.01.2022 16:58
Запиши числом количество осей координат в рабочей области Окнапрограммы SketchUpМой ответ ДАЮ 10 Б...
79954236
10.06.2021 03:51
Дана процедура: procedure nod (a, b: integer; var c: integer); begin while a b do if a b then a:=a-b else b:=b-a; c:=a end; Чему равно значение с после вызова процедуры...
StalinReal
03.05.2023 12:50
Какую формулу нужно выбрать, чтобы определить минимальное из значений в диапазоне ячеек с C5 по C20? 1)=МИН(С5;С20) 2)=МИН(С5:С20) 3)=СЧЕТ(С5:С2О) 4)=СУММ(С5;С20)...
LilyaDolz
17.01.2022 12:44
Гоголь тарас бульба главные герои краткое содержание...
Rj7
17.01.2022 12:44
Втреугольнике abc точки m и n-середины сторон ab и bc соответственно. периметр треугольника mnb=22см.найдите периметр треугольника abc...
кариетнаа
17.01.2022 12:44
Вбаке было 1840 л бензина.в первый день из бака вылили 15% бензина, а во второй 60% остального бензина.сколько литров бензина осталось в баке?...
danisimokuvshn
17.01.2022 12:44
Як називаються круглі черви які паразитують на рослинах...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b, k: integer;
BEGIN
read (a, b);
for k:=1 to (b-a) do
begin
if (a mod 2) <>0 then
writeln ( a)
else
writeln ('-', a);
a:=a+1
end;
end.