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