Var a,b,c:integer;
Begin
Readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Write('yes') Else
write('no').
Скинь фотку ребуса''''''''''
Var min, max, x: byte;
begin
max=0;
min:=100;
for x:= 10 to 99 do begin
if (x mod 10)+(x div 10)=7 then begin
writeln (x);
if x>max then max:=x;
if x
Дано: N= 65536, k= 10*64*32=20480.
Найти: I-?.
Решение: I = k*i
N=65536=2 ( в 8 степени)
i= 8
I= 20480*8=163840 битов)
160 ( килобайт)
Ответ: I = 160 килобайт
Всё)