Вопрос Программа чтобы находила числа больше 0 паскаль
- Автор темы val9a93
- Дата начала
program numbers_greater_than_zero;
var
input_number: integer;
begin
writeln('Введите числа, нажимая Enter после каждого числа'
;
readln(input_number);
while input_number <> 0 do
begin
if input_number > 0 then
writeln(input_number, ' - число больше нуля'
readln(input_number);
end;
end.
var
input_number: integer;
begin
writeln('Введите числа, нажимая Enter после каждого числа'
;readln(input_number);
while input_number <> 0 do
begin
if input_number > 0 then
writeln(input_number, ' - число больше нуля'
;readln(input_number);
end;
end.