1. числовая-количественная - мера объектов и их свойств в окружающем мире.
2. Звуковая — воспринимаемая органами слуха.
3.Тактильная — воспринимаемая тактильными рецепторами.
4. Обонятельная — воспринимаемая обонятельными рецепторами.
5. Вкусовая — воспринимаемая вкусовыми рецепторами.
Program pp;
var a,b:integer;
begin
read(a,b);
if (a>0) and (b>0) then begin
a:=sqr(a);
b:=sqr(b);
end;
if (a<0) and (b<0) then begin
a:=abs(a);
b:=abs(b);
end;
writeln(a,b);
end.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
1) 2^(10*1024*8/8/32/40)
2)
е=20
л=12
о=32
п=11
к=10
а=22
колокол = 10 32 12 32 10 32 12
Var q1,q2,q3,n:integer;beginwrite('Введите трехзначное число n ');read(n);q3:= n mod 10;q2:= n div 10;q2:= q2 mod 10;q1:= n div 100;writeln(q1:4,q2:4,q3:4);if q2 = q1*q3 thenwrite('Цифра, расположенная в середине числа, равна произведению двух крайних цифр')elsewrite('Цифра, расположенная в середине числа, не равна произведению двух крайних цифр');<span>end.</span>