Очень СРОЧНО!!!!!В 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.
Не нашли ответ?
Похожие вопросы