1000-7?

[yamaharacer365]

от 1000 с шагом -7

 

[yamaharacer365]

993

 

[heartlessing]

986

 

[MR_Kpa6c6yprep]

979

 

[PAK2021]

Uses CRT var x: integer; x=1000 while x>0 do begin white (x, "-7="); x:=x-7; writeln (x); delay (50); end; whiteln (" Я гуль "); end.

 

[PAK2021]

слит попуск

 

[sem1on]

972

 

[Metall4ik]

965

 

[iiUlt0Biu]

958

 

[yamaharacer365]

951

 

[MayukoTakahashi]

944

 

[Pro100TToRussa]

Uses CRT var x: integer; x=1000 while x>0 do begin white (x, "-7="); x:=x-7; writeln (x); delay (50); end; whiteln (" Я гуль "); end.

В чем писал? В Pascal abc или в Lazarus? Кста, где program "название"

 

[_MarkizPrison_]

Эта считалка для умных, так что, пожалуй 871

 

[MR_Kpa6c6yprep]

764

 

[x32legend]

757

 

[yamaharacer365]

750

 

[PAK2021]

В чем писал? В Pascal abc или в Lazarus? Кста, где program "название"

это паскаль, нету

 

[sem1on]

743

 

[PAK2021]

736

 

[KazakEz]

729