Дистанційні курси - ІНФОРМАТИКА by

npopadunets — 2020-05-20 18:05:39 UTC

Задача"Добуток цифр"

npopadunets — 2020-05-20 19:49:13 UTC

npopadunets — 2020-05-20 19:50:04 UTC

var n:integer; d:double; begin readln(n); d:=(n mod 10)*(n div 10 mod 10)*(n div 100); write(d:0:0); end.

Задача "Середнє з чисел"

npopadunets — 2020-05-20 19:55:30 UTC

npopadunets — 2020-05-20 19:55:51 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.

Задача "Який трикутник"

npopadunets — 2020-05-20 20:10:11 UTC

npopadunets — 2020-05-20 20:10:29 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.

npopadunets — 2020-05-22 14:05:03 UTC

математика 16-20 листопада

npopadunets — 2020-11-16 07:18:27 UTC