Уважаемые программисты, помогите... - Паскаль, Turbo Pascal, PascalABC.NET - Страница 2

ЕлЕнОчкА · 04.12.2008, 20:18

uses crt;
var n,min,code:integer;
s:string;
begin
clrscr;
min:=1000;
repeat
readln(s);
if s<>'22222'then val(s,n,code);
if (lenght(s)=3) and (n<min) then min:=n;
if (lenght(s)=4) and (n<0) and (min>n) then min:=n;
clrscr;
untel s='22222';
if min<>1000 then writeln('Min:',min);
readln;
end.

alex_fcsm · 04.12.2008, 20:20

length
Until
посмотри как пишется и как у тебя

Не можете переписать скопируйте

ЕлЕнОчкА · 04.12.2008, 20:23

Ура заработала. СПАсибо БОЛЬШОЕ! А другая задача там всё парвильно?

alex_fcsm · 04.12.2008, 20:25

Цитата:

Сообщение от ЕлЕнОчкА

Ура заработала. СПАсибо БОЛЬШОЕ! А другая задача там всё парвильно?

Извините, но Вы принципиально делаете ошибки?

ЕлЕнОчкА · 04.12.2008, 20:26

Нет. в слове унтил я ошиблась когда переписывала на форум, яже вручную писала а то из паскала я и в него незнаю как копировать, в программе это слово правильно было.

alex_fcsm · 04.12.2008, 20:31

Файлы Паскаля открывайте любым текстовым редактором (Блокнот напр)

ЕлЕнОчкА · 04.12.2008, 20:34

А как мне теперь проверить эти самые задачи, повводить числа?

04.12.2008, 20:20	#12
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	length Until посмотри как пишется и как у тебя Не можете переписать скопируйте Нормальное состояние техники - нерабочее, все остальное частный случай. Последний раз редактировалось alex_fcsm; 04.12.2008 в 20:24.

04.12.2008, 20:31	#16
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	Файлы Паскаля открывайте любым текстовым редактором (Блокнот напр) Нормальное состояние техники - нерабочее, все остальное частный случай.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Уважаемые программисты!	Дашусик	Помощь студентам	8	31.05.2008 19:29
Уважаемые программисты, помогите пожалуйста, с чего начать?	irbiss	Свободное общение	2	30.03.2008 19:53
Уважаемые программисты, помогите плз)	весел	Свободное общение	3	03.03.2008 10:14
Уважаемые мною Программисты , помогите ...	R_N_1	Свободное общение	3	27.02.2007 23:02

04.12.2008, 20:18	#11
ЕлЕнОчкА Регистрация: 04.12.2008 Сообщений: 7	uses crt; var n,min,code:integer; s:string; begin clrscr; min:=1000; repeat readln(s); if s<>'22222'then val(s,n,code); if (lenght(s)=3) and (n<min) then min:=n; if (lenght(s)=4) and (n<0) and (min>n) then min:=n; clrscr; untel s='22222'; if min<>1000 then writeln('Min:',min); readln; end.

04.12.2008, 20:23	#13
ЕлЕнОчкА Регистрация: 04.12.2008 Сообщений: 7	Ура заработала. СПАсибо БОЛЬШОЕ! А другая задача там всё парвильно?

04.12.2008, 20:26	#15
ЕлЕнОчкА Регистрация: 04.12.2008 Сообщений: 7	Нет. в слове унтил я ошиблась когда переписывала на форум, яже вручную писала а то из паскала я и в него незнаю как копировать, в программе это слово правильно было.

04.12.2008, 20:34	#17
ЕлЕнОчкА Регистрация: 04.12.2008 Сообщений: 7	А как мне теперь проверить эти самые задачи, повводить числа?