Войти
Регистрация
Спроси 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 символа. После редактирования объём текста...
НастяStar1
26.07.2020 19:42
М!,лкейеепюуцдвуоп. решить...
3klass1
05.02.2023 19:07
Приведите пример применения искусственного интеллекта в промышленности. Обоснуйте, почему приведенный Вами пример является искусственным интеллектом. ...
вор9
14.05.2023 07:58
Даны два (три) натуральных четырёхзначных числа. Расположить их в порядке неубывания сумм крайних цифр.С++первый код для 2 чисел, второй для 3...
Sahsa65432
09.03.2023 10:38
Цепь Из проволоки толщиной d миллиметров сделали кольца. Внутренний радиус каждого кольца составляет R миллиметров. Всего сделали n колец и их соединили в цепь. Определите...
azodanic12
21.01.2021 11:40
= 8-тапсырма. Берілген сөйлемдерді салыстырып оқып, сөйлемнің түрін (жай сөйлем, құрмалас сөйлем) анықтаңдар. Сөйлем мүшелеріне талдау арқылы өзпікірлеріңді дәлелдеңдер....
jru77
22.06.2021 08:20
Итоги взаимодействия России и Османской империи кратко и понятно....
Clay1353
22.06.2021 08:20
Источник существования, который предлагал людям Франциск Ассизский...
Азик1166
18.05.2020 16:00
у людини суттєво порушено перетравлення білків жирів та вуглеводів. знижена секрація тpавного соку найімовірніше є причиною цього? відповідь поясніть!...
Plushtrap
06.06.2020 12:35
Хто допомагаэ Енеэвi на його шляху...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
типа такого?