Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vlad007g
21.07.2020 19:59 •
Информатика
Цикл с параметром паскаль вывести все трехзначные числа оканчивающиеся на 13; 42
Показать ответ
Ответ:
usenova1993
05.07.2020 16:55
1)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+13;
write(x: 4)
end
end.
2)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+42;
write(x: 4)
end
end.
0,0
(0 оценок)
Ответ:
soboleff2005
05.07.2020 16:55
Program Thirteen_FortyTwo;
var
i: integer;
s: string;
begin
for i := 100 to 999 do
begin
str (i,s);
if (copy (s, 2, 2) = '13') or (copy (s, 2, 2) = '42') then writeln(s);
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ФрискТок
23.03.2020 12:03
Определите десятичный эквивалент (а10) двоичного числа (а2). 1) 1001 2) 1111 3) 1011101 4) 100110 5) 1111111001 6) 0.01...
gerakostya
23.03.2020 12:03
Pascal abc напишите программу, которая считывает целое число и выводит текст, аналогичный в примере. пробелы, знаки препинания, заглавные и строчные буквы важны! ввод : 179...
janamelnik10
09.08.2022 22:02
4. Web сайт это: 1) Программа, отображающая информацию изинтернета2) отображение информации в поисковой системе3) Несколько web-страниц связанных между собойсодержанием4) Набор...
elisavetto4ka
02.10.2022 08:16
2. В каком виде в www представляется информация?1) В виде web-страниц2) в виде графических изображений3) В виде гиперссылок4) в виде текста и мультимедиа...
abiersack
09.05.2022 13:23
is something like a container that can store a number or value...
вау39
27.09.2020 20:44
Составить блок - схему вычисления значения функции...
miro4ka4546
21.04.2023 22:32
сегодня вечером надо задать✍...
gorjchevst
07.10.2020 10:07
12. Кому належать слова: У нас порядок; фірма почтєнная, товар з Лондона прямо ідьот кожаних мішках; ежелі возьмьоте, то скажіть, скілько вам нужно, - я буду телеграму пускатьу...
Сакура2034
19.10.2020 00:48
Ә Ассамблея қызметінің арқасында Қазақстанда ұлттар мен ұлыстар арасында бейбітшілік, тату қарым-қатынас орнап отыр деген сөйлемдіжазып, кешенді талдау (фонетикалық, морфологиялық,...
stefa4
25.09.2021 19:37
Определите давление на глубине 1,3 м в подсолнечном масле(плотность=930кг/м3)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+13;
write(x: 4)
end
end.
2)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+42;
write(x: 4)
end
end.
var
i: integer;
s: string;
begin
for i := 100 to 999 do
begin
str (i,s);
if (copy (s, 2, 2) = '13') or (copy (s, 2, 2) = '42') then writeln(s);
end
end.