Задача на Паскале. Выполнить с циклом Repeat - Until - PascalABC.NET

PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.73/88:

@NotBadMen 0 / 0 / 0 Регистрация: 27.05.2020 Сообщений: 6

	Задача на Паскале. Выполнить с циклом Repeat - Until 27.05.2020, 08:44. Показов 17920. Ответов 2 Метки нет (Все метки) Напечатать ряд из повторяющихся чисел 20 в виде: 20 20 20 20 20 20 20 20 20 20. 0

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

27.05.2020, 08:44

Ответы с готовыми решениями:

Проблемы с циклом repeat … until
Возникли проблемы к такой программе: uses Crt; Var a: Integer; begin ClrScr; While a >= 0 then begin Write(‘ Ввести число::...

Заменить цикл repeat циклом while
В общем надо заменить цикл repeat вайлом в этой программе: var s,n,m,k: integer; f:real; begin write('введите натуралное...

Написать программу с циклом Repeat
Можете помочь написать полный код программы,чтобы работал в паскале и выдавала конечный ответ? s:=0; i:=4; repeat s:=s+2*i; i:=i+3;...

Puporev

Почетный модератор

64314 / 47610 / 32743

Регистрация: 18.05.2008

Сообщений: 115,168

27.05.2020, 08:56

Pascal
1
2
3
4
5
6
7
8
var k:integer;
begin
k:=0;
repeat
write('20 ');
inc(k);
until k=10;
end.

JuriiMW

5095 / 2661 / 2355

Регистрация: 10.12.2014

Сообщений: 10,059

27.05.2020, 10:14

Вообще без циклов:

Pascal
1
2
3
begin
  ('20 '*10).Print
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

27.05.2020, 10:14

Помогаю со студенческими работами здесь

Запись в текстовый файл repeat циклом
Будет поле для ввода символов, после того, как мы ввели что-либо в это поле нажимаем на кнопку и то что мы написали должно записаться в...

Программа с циклом Repeat . until для ввода символов
Программа с циклом Repeat .. until для ввода символов. uses Crt; Var Bukva: Char; begin repeat write(' Ввести букву: ');...

Вычислить уравнение y:=(min(a,b)+max(a,b)/2 c циклом: а) for; б) while; в) repeat;
Пожалуйста, помогите))) Заранее спасибо! a,b- любое число. решить уравнение y:=(min(a,b)+max(a,b))/2 c циклом: а) for; б) while; в)...

Найти сумму n первых натуральных чисел циклом: а) for; б) while; в) repeat;
Найти сумму n первых натуральных чисел циклом: а)for; б)while; в)repeat;

Нужно переделать программу с циклом по параметру в циклы с пост- и предусловием (repeat и while)
Никак не получается( program e1; uses crt; var d,r,u,g: integer; begin for d:=1 to 9 do for r:=0 to 9 do for u:=0 to 9 do ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

Наверх