Если не ошибаюсь,то так))
Program zadacha;
var x, y, z: integer (либо real);
begin
readln (x);
readln (y);
if x>=15 then
begin
z:=x*3;
end else
begin
z:=y*3;
end;
write (z);
end.
1) ннкнлки - по другому у меня не вышло и букву м вставить некуда
2) 48*40*40*8/8/1024 = 614 400 бит = 75Кбайт
3)625 = bin: 0010 0111 0001 => 5 единиц
В социальных сетях т.к охватывает большую часть аудитории современного общества. Возможностью выхода в интернет владеет практически каждый человек
var a,b,c,d:integer;
begin
read(d);
a:=d div 100;
b:= (d div 10) mod 10 ;
c:=d mod 10;
if (a+b+c) >15 then
writeln('YES')
else
writeln('NO');
readln;
end.