Урок 13.1 Задача 6
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.
var m, a: integer; begin a:=1; while a>0 do begin writeln('vvedite chislo : '); readln(a); m:=1; while m<=a do begin write (m, ' '); m:=m+1; end; writeln(); end; writeln('oshibka'); writeln(); writeln('<<Konec>>'); readln(); end.
- Log in to post comments
- 250 reads