Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Сок325
03.04.2021 18:32 •
Информатика
Паскаль. 1. вывести в столбик все двузначные числа. (1 цикл, 1 переменная) 2. из тех же чисел вывести только те, что заканчиваются на 5. 3. вывести в ряд 15 рандомных чисел от 10 до 30.
Ответ:
TIME6ONLINE
07.10.2020 12:43
1.
var i:integer;
begin
for i:=10 to 99 do writeln(i);
end.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
25 19 12 11 25 27 30 19 21 19 15 10 14 22 22
0,0
(0 оценок)
Популярные вопросы: Информатика
рапкмаркмарк
10.10.2022 19:03
Мәліметтерді енгізу деген не...
diana22022005
11.06.2021 12:43
Https://youtube.com/channel/UCzYSA03izCT-jaOUfZwHjDw подпичис...
adidok199680
10.06.2020 01:54
1) С какого датчика можно выполнить более точный поворот? 2)Как ироскопические датчики влияют на движение робота?3) В чем отличие гироскопического датчика от других датчиков?4)...
Angela960
19.01.2023 18:38
Составьте 3 математических выражения в тетради и запиши их на языке отвечать честно ...
wutter99
29.01.2021 15:54
НАПИШИТЕ ПРОГРАМУ,КОТОРАЯ ВЫЧИСЛЯЕТ ПЛОЩАДЬ ПОЛА И ПЕРИМЕТР ПОЛА...
Gufka965
03.03.2023 14:42
составить таблицу по информатике...
Nastya4002
28.04.2020 21:15
Отгадай ребус 3, малина ,Ав...
lakomkin2007
19.01.2022 08:02
1. Укажите, сколько раз выполнится тело цикла: D:=5; WHILE D 0 DO D:=D-2; 3 2 4 2. Укажите, сколько раз выполнится тело цикла : k:=-1; WHILE K 4 DO K:=K+3; 5 2 3...
HFccv
16.01.2023 21:20
6. Назовите функцию клавиши Shift: А. Управляет работой компьютера с другой кнопки. В. Заглавные буквы. С. Перезагрузить компьютер D. Удаляет силівол перед курсором....
Hicka
29.02.2020 22:52
T(c)+32 создайте программу которая покажет в фаренгейте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i:integer;
begin
for i:=10 to 99 do writeln(i);
end.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
25 19 12 11 25 27 30 19 21 19 15 10 14 22 22