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