Урок 13.1 Задача 7
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 if (m mod 2)=0 then write (m, ' '); m:=m+1; end; writeln(); end; writeln('oshibka'); writeln(); writeln('<<Konec>>'); readln(); end.
- Log in to post comments
- 234 reads