Test_5 Цикли
(1-29)
i: = 0; S: = 0
While i <3 do
Begin
i: = i + 1;
S: = S + i * i
End;
var k, l: integer;
begin
FOR k: = 8 DOWNTO 1 DO
FOR l: = 10 TO 14 DO
writeln ( 'Мені подобається Паскаль.');
end.
|
|
|
|
|
|
|
|
|
|
1 |
2 |
2 |
1 |
2 |
1 |
3 |
2 |
2 |
3 |
|
|
|
|
|
|
|
|
|
|
1 |
4 |
2 |
1 |
4 |
1 |
4 |
2 |
1 |
4 |
|
|
|
|
|
|
|
|
|
1 |
2 |
3 |
1 |
3 |
1 |
4 |
3 |
3 |