Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 21.02.2011, 17:02   #1
seed92
Новичок
Джуниор
 
Регистрация: 21.02.2011
Сообщений: 1
По умолчанию исправить код

program zadanie;
uses crt;
var a,b,s:integer;
begin
b:=0;
s:=0;
repeat
writeln(' BBeguTe 4ucJIo');
read(a);
while(a>b) do begin
b:=a;
s:=s+1;
end;
writeln(' кол-во элементов' , s)
until a<b;
end.
нужно чтоб программа работала через один цикл, а не через два...
само задание "написать программу для ввода последовательности чисел с клавиатуры.если последуещее число меньше предыдушего то закончить программу и вывести кол-во элементов вводимых"
seed92 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите исправить код Карол Помощь студентам 2 29.10.2009 17:47
Исправить код DirtyBASS Помощь студентам 2 22.09.2009 10:20
Исправить код IndividBezLica Помощь студентам 0 02.06.2009 09:41
Помогите исправить код lider24816 Помощь студентам 2 24.05.2009 18:12
Помогите исправить код Tanuska___:) БД в Delphi 4 07.08.2008 17:40


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS