Задача 7 Урок 13.1
Primary tabs
Задача 7 Урок 13.1
Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.
var a ,b : integer; begin writeln('vvedite polozhitelnoe chislo'); readln(a); if (a > 0) then for b := 1 to a do begin if not odd(b)then write(b,' '); writeln(); end else writeln('oshibka'); readln(); end.
- Log in to post comments
- 874 reads