Сучасна методика викладання інформатики by Василь Васильович Ленюський

1 питання

segaaadud3 — 2020-03-25 08:21:18 UTC

2 питання

segaaadud3 — 2020-03-25 08:24:56 UTC

3 питання

segaaadud3 — 2020-03-25 08:43:52 UTC

4 питання

segaaadud3 — 2020-03-25 08:53:00 UTC

5 питання

segaaadud3 — 2020-03-25 08:59:05 UTC

6 питання

segaaadud3 — 2020-03-25 09:01:08 UTC

7 питання

segaaadud3 — 2020-03-25 09:07:05 UTC

8 питання

segaaadud3 — 2020-03-25 09:10:03 UTC

9 питання

segaaadud3 — 2020-03-25 09:18:56 UTC

10 питання

segaaadud3 — 2020-03-25 09:22:11 UTC

Завдання р1§2

segaaadud3 — 2020-03-26 07:29:00 UTC

Сірникова модель

segaaadud3 — 2020-03-26 07:34:48 UTC

uses crt;
var n: longint;

function NCube(n: integer): integer;
var c1,c2,c3,s,h,d1,d2: integer;
begin
c1:=trunc(exp(ln(n)*1.0/3)+0.5);
c2:=trunc(sqrt(n/c1)+0.5);
c3:=trunc(n/(c1*c2));
S:=3*c1*c2*c3+2*(c1*c2+c1*c3+c2*c3)+(c1+c2+c3);
h:=n-c1*c2*c3;
if h<>0 then
begin
d1:=trunc(sqrt(h)+0.5);
if d1*d1>h then
dec(d1);
d2:=trunc(h/d1);
S:=s+(3*d1*d2+2*(d1+d2)+1);
h:=h-(d1*d2);
if h<>0 then
S:=s+(3*h+2);
end;
NCube:=S;
end;

begin
clrscr;
readln(N);
writeln(NCube(N));
readln;
end.

Проста задача

segaaadud3 — 2020-03-26 07:35:08 UTC

var n_str:string; n:integer;

begin
readln(n);
str(n,n_str);
writeln(n_str[1],' ',n_str[2]);
end.

Фішбоун

segaaadud3 — 2020-03-26 08:22:51 UTC