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