Задача 7 урок 13.1
Primary tabs
Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.
program zadacha7; var i, j: integer; begin i:=1; while i > 0 do begin writeln('Vvedite chislo'); readln(i); if i > 0 then begin j:=1; while j <= i do begin if j mod 2 = 0 then write(j,' '); j:=j+1; end; writeln(); end else writeln('Vvedeno otricatelnoe chislo'); end; readln(); end.
- Log in to post comments
- 736 reads