Очень СРОЧНО!!!!!В Pascal ABC составить задачу: Вывести на экран первые 10 нечётных отрицательных чисел.
Answers & Comments
STAJLb 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.
2 votes Thanks 0
Gastarbaiter
Можно было использовать цикл For, и задача бы получилась в 3 строки:)
Answers & Comments
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.