Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
никита3491
17.04.2020 07:57 •
Информатика
Напишите любые 5 программ с циклом со счетчиком в pascalabc
Показать ответ
Ответ:
tab3190717
06.10.2020 11:49
var
A,B:byte;
begin
readln(A);
for B:=1 to 20 do
A:=A+1;
writeln(A);
end.
var
A,K,U:byte;
begin
readln(A,U);
while A>U do
begin
K:=K+1;
A:=A-1;
end;
end.
типа такого?
0,0
(0 оценок)
Популярные вопросы: Информатика
nikipana
29.12.2021 19:21
С ПОДРОБНЫМ РЕШЕНИЕМ Петя отредактировал текст, каждая страница которого содержит 32 строки, в каждой строке 64 символа. После редактирования объём текста...
nikita2429p09umg
22.03.2020 04:15
Чему будет равна мощность алфавита , если информационный объем каждого символа алфавита равен 6 ?...
makspayneg
08.10.2020 11:34
1. Что такое 3D графика? 2. Рассмотрите следующие фигуры. Определите инструменты, с которых были созданы фигуры. 1. 2. 3. 3. Проанализуруйте, какие различия имеются между...
НастяStar1
26.07.2020 19:42
М!,лкейеепюуцдвуоп. решить...
supersattarova
16.12.2021 19:09
Дайте правила обработки и передачи информации. Благодарна....
3klass1
05.02.2023 19:07
Приведите пример применения искусственного интеллекта в промышленности. Обоснуйте, почему приведенный Вами пример является искусственным интеллектом. ...
вор9
14.05.2023 07:58
Даны два (три) натуральных четырёхзначных числа. Расположить их в порядке неубывания сумм крайних цифр.С++первый код для 2 чисел, второй для 3...
anavysockaa2060
11.02.2023 14:32
Где можно научиться создать игры новичкам,и где можно командывать...
egubiev
09.03.2023 10:38
Как сильно влияет скорость чтения на sd картах памяти в играх?...
Sahsa65432
09.03.2023 10:38
Цепь Из проволоки толщиной d миллиметров сделали кольца. Внутренний радиус каждого кольца составляет R миллиметров. Всего сделали n колец и их соединили в цепь. Определите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,B:byte;
begin
readln(A);
for B:=1 to 20 do
A:=A+1;
writeln(A);
end.
var
A,K,U:byte;
begin
readln(A,U);
while A>U do
begin
K:=K+1;
A:=A-1;
end;
end.
типа такого?