Часть А:
1 - C (short int 2 байта -32768/32767)
2 - D. С числа переменные не называются.
3 - C. 3.5*10^-3=0.0035
4 - A, B, M. Ответ: C
Целый тип принимает только целые числа.т.е к примеру: -1, 2, 55, 99999, -99999.
35.5 - вещественное число.true - логический тип. (Да(true)/Нет(false)). Называется Boolean.
'пять' - строка.
5. 4682, 4680. Ответ: B
Часть B:
1. sqrt(x1+x2) + (abs(x1)/abs(x1+x2))
2. ABS(SQR(36)-15 div 2) = 1289
3. 30
4. Не понятно что такое: X <> Y Y.
Часть С:
1.
var A,B:integer;
S,G:real;
begin
readln(A, B);
S := (A+B)/2;
G := sqrt(A*A+B*B);
writeln('S = ', S, ' G = ', G);
end.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('n='),-200,200); x.Println;
var min:=x.Min; Writeln('Минимальный элемент ',min);
Writeln('A = ',(x.Where(t->t<100).Sum)/Sin(min))
end.
<u>Пример</u>
n= 13
44 51 41 -154 -169 -100 169 113 183 198 -183 136 58
Минимальный элемент -183
A = 581.362198263188