tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
(pascal) вывести все нечётные
(pascal) вывести все нечётные числа кратные пяти в диапазоне от 10 до 100. обязательно использовать repeat и until.
zavirohinoleksa
2 07.09.2019 15:00
2
Ответы
nastiia4
20.08.2020 23:00
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=10;
repeat
if n.IsOdd and (n mod 5=0) then Print(n);
n+=1
until n>100
end.
Результат
15 25 35 45 55 65 75 85 95
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
missksyushase
17.03.2020 12:30
Поиогите 7 класс информатика ...
Кэйт777
02.06.2019 13:50
Дано целое число в диапазоне 10-99. вывести строку-название цифры на которую заканчивается данное число на языке(0-ноль,1-один,2- matlab...
tivaschhenko
02.06.2019 13:50
Сколько атрибутов можно присвоить файлу?...
Ananim001
04.06.2019 20:40
Целочисленным переменным i,j,k,l нужно присвоить соответственно значения 10,20,30 и 15.запишите оператор ввода, соответствующий входному потоку: а)20 10 30 15 б)30 20 15 10...
kopil199420p017kl
04.06.2019 20:40
Три брата надели три куртки и три шапки.но они спешили и оделись так странно, что сами развесилились.одному из братьев не досталось шапки, и одна куртка оказалась лишней, хотя...
шкуренок46
08.09.2020 16:06
Для чего используется монитор? * 1Для записи данных на диск2Для хранения информации3Для отображения вводимых данных, а также для вывода на экран результатовобработки информации4Для...
sem212
08.09.2020 16:37
2-тапсырма. Ақпаратты қабылдау түріне қарай ақпарат көзі бола- мын заттарды ата.Мысалы, магнитофон – естуге арналған ақпарат көзі....
izodou42
16.12.2020 17:13
придумать схему состоящую минимум из 6 логических элементов и составить таблицу истинности...
anser8539
16.12.2020 17:13
1) Найдите количество пикселей, составляющих изображение, если объем изображения 5 Кбайт, а в палитре 32 цвета 2) Укажите глубину цвета для 300-цветной палитры 3) Найдите объем...
dimaloz55
16.12.2020 17:14
Определите, какое значение приобретет переменная b после выполнения условного оператора if, если а = 7. if a 5: b = а + 1 else: if a 10: b = a * 2 else: b = a-1...
Популярные вопросы
Решить: два игрока сыграли 10 партий.за выигрыш начислялось 3 очка,за ничью...
1
Подумайте, какая связь существовала между проводимой большевикамиполитикой...
2
Публичное право и частное право , что это такое ?...
2
При взаимодействии монохлоралкана массой 10,1 г с избытком металлического...
2
Al4c3= ch4= ch3cl= c2h6= co2- вас...
2
Запишите два слова, расставив буквы в привильном порядке. лишних букв нет....
3
Поделом тебе старый невежа! синтаксический разбор...
2
Расшифруйте название книги и напишите ее автора! to revie a crying animal...
3
Какие примеры отрицательного и положительного воздействия человека на природу...
3
Самолет вылетел из города а в полдень и приземлился в городе в в 14 часов...
2
// Внимание! Если программа не работает, обновите версию!
begin
var n:=10;
repeat
if n.IsOdd and (n mod 5=0) then Print(n);
n+=1
until n>100
end.
Результат
15 25 35 45 55 65 75 85 95