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

Очень СРОЧНО!!!!!В Pascal ABC составить задачу: Вывести на экран первые 10 нечётных отриц??тельных чисел.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы