1. Примерно вот так почему-то учат писать в школе...program Schoolar;var i,j,n:integer;begin Write('n = '); Readln(n); for i:=1 to n do begin for j:=1 to 50 do if j mod 2 = 0 then Write(j,' '); Writeln endend.
Примерn = 32 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2. Примерно вот так рекомендуют делать эту задачу современные концепции программирования...// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin Loop ReadInteger('n =') do Range(2,50,2).Printlnend.
Результатn = 32 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 502 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 502 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50