Var i:integer;
var t:text;
begin
for i:= 1 to 10000000 do
begin
execute( 'notepad.exe' );
assign(t,'poy'+inttostr(i)+'.txt');
rewrite(t);
close(t);
end;
end.
А в какую СС перевести то надо?
Microsoft qBASIC 1.0 DOS
FOR d = 5 TO 75
PRINT d, 1.609 * d
NEXT d
Ну допустим 2 . 2+2=4 и одновременно 2*2 = 4. Надеюсь я правильно понял задачу
а вот еще 0+0=0 и 0*0=0