Задание 3. a) Составьте программу, выводящую на экран четные числа от 8 до 40. б) Составьте программу, выводящую на экран нечетные числа от 11 до 31. Задание 4. а) Составьте программу, выводящую на экран числа от 1 до 10, а также ква- драты и кубы этих чисел в следующем виде: 1 1 1 248 10 100 1000 б) Составьте программу, выводящую на экран все числа от -10 до 10, а так- же их модули: -10 10 -9 9 10 9 9 10 Задание 5. a) Составьте программу, выводящую на экран фрагмент таблицы умноже- ния: 1 x 2 = 2 2 x 2 = 4 3 x 2 = 6 9 x 2 = 18 б) Составьте программу, выводящую на экран фрагмент таблицы умноже- ния: 1x1 = 1 2 x 2 = 4 3 x 3 = 9 9 х 9 = 81
через "while"и"do"
Ответы
program even_numbers;
var
i: integer;
begin
i := 8;
while i <= 40 do
begin
writeln(i);
i := i + 2;
end;
end.
-----------
program odd_numbers;
var
i: integer;
begin
i := 11;
while i <= 31 do
begin
writeln(i);
i := i + 2;
end;
end.
----------
program squares_and_cubes;
var
i: integer;
begin
i := 1;
while i <= 10 do
begin
writeln(i, ' ', i*i, ' ', i*i*i);
i := i + 1;
end;
end.
---------------
program numbers_and_abs;
var
i: integer;
begin
i := -10;
while i <= 10 do
begin
writeln(i, ' ', abs(i));
i := i + 1;
end;
end.
----------------
program multiplication_table_a;
var
i: integer;
begin
i := 1;
while i <= 9 do
begin
writeln(i, ' x 2 = ', i*2);
i := i + 1;
end;
writeln('9 x 2 = 18');
end.
---------------
program multiplication_table_b;
var
i: integer;
begin
i := 1;
while i <= 9 do
begin
writeln(i, ' x ', i, ' = ', i*i);
i := i + 1;
end;
writeln('9 x 9 = 81');
end.