29.03.2008, 01:36
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от zl0y
program name;
{$APPTYPE CONSOLE}
uses
SysUtils;
var TmpName : string;
Count,i : Integer;
begin
WriteLn('What is your name? and credit card number  ');
ReadLn(TmpName);
WriteLn('Enter number te repeat:');
ReadLn(Count);
if Count=0 then exit;
for i:=1 to Count do WriteLn(TmpName);
end. File not found <SYSUTILS.TPU>. Не пашет твоя программа.
Последний раз редактировалось z01b; 29.03.2008 в 01:42..
|
|
|