Очень СРОЧНО!!!!!В Pascal ABC составить задачу: Вывести ** экран первые 10 нечётных...

Question

Очень СРОЧНО!!!!!В Pascal ABC составить задачу: Вывести на экран первые 10 нечётных отрицательных чисел.

Answer 1

program z1;
var
i,k:integer;
begin
k:=0;
i:=0;
while i <> 10 do begin
dec (k);
if (abs (k) mod 2 =1 ) and (k < 0) then
begin
writeln (k);
inc (i);
end;
end;
end.

Comments

Можно было использовать цикл For, и задача бы получилась в 3 строки:)