Решение задачи 6 из главы 13.1
Primary tabs
Решение задачи 6 из главы 13.1
6. Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
program Project6; var i, a: integer; begin writeln('Vvedite zeloe polozhitelnoe chislo:'); readln(i); while (i >= 1) do begin for i:=1 to i do writeln(i, ' '); writeln('Vvedite zeloe polozhitelnoe chislo:'); readln(i); end; writeln('Vy vveli otrizatelnoe chislo!'); readln(); end.
- Log in to post comments
- 870 reads