Задача 6 Урок 13.1
Primary tabs
{13.1 — 6 Пользователь вводит целое положительное число,
если оно не соответствует критериям (то есть не является положительным),
выведете сообщение об ошибке,
в противном случае выведете на экран все числа от 1 до введённого пользователем.}
var a,i: integer; begin repeat writeln('write num >= 0'); readln(a); if (a>=0) then for i:=1 to a do write(i, ' ') else writeln('error: num < 0'); writeln(); until (a<0) ; writeln('over'); readln(); end.
- Log in to post comments
- 553 reads