1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:
var i,count,n: Integer; begin while i<>3 do begin writeln('Введите число'); readln(n); if n<0 then inc(count); i:=n; end; writeln('Кол-во: ',count); end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer; begin while count<>3 do begin writeln('Введите число'); readln(n); if n<0 then inc(count); end; writeln('Кол-во: ',count); end.
Старший разряд числа равен: 1. Перенесем запятую на два знака влево: Старший разряд числа будет равен: То есть число уменьшится(не в раз, как указано в первом комментарии. 2.Перенесем запятую на три знака вправо от предыдущего числа: Старший разряд числа будет равен: То есть число увеличится. В задании явно не указано от какого числа переносить запятую вправо , поэтому перенесем также от исходного числа: Старший разряд числа будет равен: То есть число увеличится(не в раз, как указано в первом комментарии.
var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.