01.05.2011, 13:11 | #1 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
Помогите с программой
дано натуральное n. Записать в файл d целые числа b1,...,bn, где при i=1,2,...,n значение bi равно i(во второй). |
01.05.2011, 13:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме есть обсуждения, которые схожи с вашими Помогите с программой Помогите с программой в Паскале |
01.05.2011, 19:12 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR f:TEXT; i,j,N:Word; BEGIN Assign(f,'C:\out.txt'); ReWrite(f); Write('N(<256)= '); ReadLn(N); If N>10 then For i:=0 to (N div 10)-1 do begin For j:=1+i*10 to 10+i*10 do Write(f,j*j:6); WriteLn(f); end; For j:=1+(N div 10)*10 to N do Write(f,j*j:6); WriteLn(f); Close(f); END. |
|
01.05.2011, 20:55 | #3 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
иии пасиб пасиб пасиб...
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|