Урок 23

Решение практических задач

Теоретическая часть

Задача 1. Вывести на экран первые k четных чисел.

program z1;

var k, a: integer;

begin

write('Количество k = ');

read(k);

for var n := 1 to k do

begin

a:= 2*n;

write(a, ' ');

end;

end.

1. Скопируйте программу в PascalABC.net

2. Замените в предыдущей задаче цикл For на цикл While

Задача 2. Возведите вещественное число a в целую степень n

program z1;

var n, m: integer;

a, S: real;

begin

write('Введите основание a = ');

read(a);

write('Введите показатель n = ');

read(n);

S := 1; m := abs(n);

for var i:= 1 to m do

S := S*a;

if n<0 then S:= 1/S;

writeln('Степень = ',S);

end.

1. Скопируйте программу в PascalABC.net

2. Замените в предыдущей задаче цикл For на цикл While

Видео Использование основных алгоритмических конструкций

Практическая часть

Задание 1. Составьте программу. Дано натуральное число n. Выведите на экран все числа кратные трём, но меньше числа n.

Задание 2. Составьте программу. Вывести на экран все элементы последовательности Фибоначчи меньше х (х вводится).

Электронная рабочая тетрадь

Проверка знаний