Урок 13.1. Задача 7.
Primary tabs
var a, i : integer; begin while (true) do begin write('Enter an integer : '); readln(a); if (a > 0) then begin for i := 1 to a do if (i mod 2 = 0) then write(i, ' '); end else writeln('This is mistake'); end; read(); end.
- Log in to post comments
- 247 reads
vedro-compota
Sat, 05/21/2022 - 18:13
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)