jefftop
Компилятор: Pascal ABC5.sqrt(1+abs(x))/cos(y)6.var a, b: integer;begin a := 5; b := 0; while a<>1 do begin a := a - 1; b := b + a; end; writeln(b);end.7.program задача;var a, b: real;begin readln(a,b); if a < b then writeln('число ', a ,' меньше числа ', b) else writeln('число ', b ,' меньше числа ', a);end.8.var a, b: integer;begin readln(a,b); writeln(a * b);end.9.var S, a, n: integer;begin readln(n); a := 2; repeat if a mod 2 = 0 then S := S + a; inc(a); until a=n; writeln(S);end.
Answers & Comments