Задача 7 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все четные числа от 1 до введённого пользователем.
var a,b:integer; begin repeat writeln ('vvedite chislo'); readln (a); b:=1; while b<=a do begin if (b mod 2)=0 then write(b,' '); b:=b+1; end; writeln(); until a<=-1; writeln('Error'); readln(); end.
Вывод консоли:
vvedite chislo 20 2 4 6 8 10 12 14 16 18 20 vvedite chislo -1 Error
- Log in to post comments
- 88 reads