На языке pascal abc реализовать программу,выводящую первых k четных чисел 2,6,10,.(k задаётся с клавиатуры) можно через while и repeat и с объяснением
Program znanija2; var number, K:integer; //определяем переменные, number - переменная для вывода begin readln(K); //читаем K c клавиатуры while number <> K do begin //ставим условия пока number не будет равнятся K number:=number+2; //повышаем number на 2 writeln(number); //выводим number на экран с новой строки end; end.
var number, K:integer; //определяем переменные, number - переменная для вывода
begin
readln(K); //читаем K c клавиатуры
while number <> K do begin //ставим условия пока number не будет равнятся K
number:=number+2; //повышаем number на 2
writeln(number); //выводим number на экран с новой строки
end;
end.