Задача 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. Составьте программу. Вывести на экран все элементы последовательности Фибоначчи меньше х (х вводится).