паскаль. написать программу СРЕДИ ЧИСЕЛ ЕСТЬ ОТРИЦАТЕЛЬНЫЕ?используя одну переменную (х) и цикл if-else (для х должно быть 4 числа использовать for нельзя)
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
x,i:integer;
flag:boolean;
begin
i:=0;
repeat
readln(x);
if x<0 then
flag:=true;
inc(i);
until i=4;
writeln(flag);
end.