Курси підвищення кваліфікації by Popadynets Oleksandr

pomxp83 — 2020-05-20 17:44:32 UTC

pomxp83 — 2020-05-20 18:41:18 UTC

Середнє з чисел

pomxp83 — 2020-05-20 20:03:01 UTC

var a, b, c: integer;
begin
readln (a, b, c);
if ((ab) and (b>c)) then write (b);
if ((ba) and (a>c)) then write (a) ;
if ((ac) and (c>b)) then write (c) ;
readln;
end.

Кільце

pomxp83 — 2020-05-20 20:11:28 UTC

program kilce;
var s,r,r2 : double;
BEGIN
readln(s,r);
r2:=sqrt((pi*sqr(r)-s)/pi);
writeln(r2:1:2);

END.

Який трикутник?

pomxp83 — 2020-05-20 20:16:45 UTC

var a,b,c:longint;
begin
readln(a,b,c);
if (a=b) and (a=c) and (b=c) then writeln(1);
if (a=b) and (a<>c) and (b<>c)  then writeln(2);
if (a<>b) and (a=c) and (b<>c)  then writeln(2);
if (a<>b) and (a<>c) and (b=c)  then writeln(2);
if (a<>b) and (a<>c) and (b<>c) then writeln(3);
end.

Дмстанційне невчання ЗА чи ПРОТИ

pomxp83 — 2020-05-22 13:28:22 UTC