решите 1. чему равна переменная b ? a: = ( 17 div 5) + ( 17 mod 6) ; b: = (a div 2 ) + ( a mod 5 ); i: = 10 ; if ((a*a)mod b < > 0 ) then begin for i: = 0 to 10 do begin a: = a + i*b; b: = b – 1 end else for i: = 0 to 10 do begin a: =(a + i * b) * 2; b: =b – (a div 10) end end
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
end
end.
Пример
n = 3
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 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).Println
end.
Результат
n = 3
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 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50