Задача 7 Урок 13.1
Primary tabs
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.
program U13_1Z5; var a, i: integer; begin writeln('vvedite celoe polozhitelnoe chislo'); readln(a); if (a<=0) then writeln('oshibka') else for i:= 1 to a do if ((i mod 2)=0) then write(i, ' '); i:=i+1; readln(); end.
- Log in to post comments
- 421 reads