Задача 6 Урок 13.1

Primary tabs

Submitted by slavina036 on Mon, 08/16/2021 - 20:18

Forums:

Задача 6 урок 13.1

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

program U13_1Z5;
var a, i: integer;
begin
  writeln('vvedite celoe polozhitelnoe chislo');
  readln(a);
  if (a<=0) then
    writeln('oshibka')
  else
    for i:= 1 to a do
      write(i, ' ');
      i:=i+1;
  readln();
end.
  • Log in to post comments
  • 1794 reads
vedro-compota's picture

vedro-compota

Tue, 08/17/2021 - 20:31

1) неправильное форматирование

_____________
матфак вгу и остальная классика =)

slavina036

Tue, 08/17/2021 - 20:35 

program U13_1Z5;
var a, i: integer;
begin
  writeln('vvedite celoe polozhitelnoe chislo');
  readln(a);
  if (a<0) then
    writeln('oshibka')
  else
    for i:= 1 to a do
      write(i, ' ');
  readln();
end.