Считаем, что кубик имеет 6 граней, тогда число должно быть >=1 и <=6
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var x:=ReadInteger();
if (x >=1) and (x<=6) then println('Принадлежит')
else println('Не принадлежит');
end.
Я как-то не понял про "1 страница содержит 50 страниц" ;)
Var
i: integer;
a,V,s: real;
begin
writeln ('введи длину ребра куба');
read (a);
V:=a*a*a;
writeln ('объем куба=',v);
s:=6*a*a;
writeln ('площадь боковой поверхности=',s);
end.
Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
112.
C:\Литература\Поэзия\Пушкин.doc
БГАГЕГВД.
113.
D:\Программы\Игры\Стратегии\Фараон
114.
D:\Уроки\Алгебра\Квур.txt (Я не понял что это за слово.)
115.
E:\География\Фото\Днепр.jpg
116.
3)
117.
Попробую объяснить.
Иерархия:
1)МИН и MAX -- вверх.
2.1)1 -- ниже в папке МИН.
2.2)11 -- ещё ниже, соединён с 1. (ты понимаешь о чём я.)
3)2 -- рядом с папкой 1.
118.
Голливуд.
119.
D:\Лето\Фото\125.jpg
120.
Я не понял что за буква, но выглядит ответ примерно так: a.bmp