1. r_1, r1, Klass_10, _123
2.
y = sqr(a mod b) = sqr(4) = 16.
z = sqrt(trunc(a/b)) + y = sqrt(4) + 16 = 2 + 16 = 18
3. -5.1 * power(10, 5)
4. 71000000000
5.
z := (sqrt(abs((x + y) / 2)))/(sqr(sqr(x+y) + 1.5));
Что ?тмомтспичвррч?!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1:
--
program l;
var n:integer;
begin
for n:=1 to 10 do
writeln('Рота');
end.
--
program l;
var
n, i: integer;
begin
writeln('Введите n:');
readln(n);
for n := 0 to n do
begin
i := n * n;
end;
writeln(n,'в квадрате: ',i);
end.
--
3:
program l;
var i,n:integer;
begin
for n:=1 to 6 do
begin
i:=456*n;
Writeln(n,'фунт(-а) это ',i, 'грамм.');
end;
end.
Это просто иррационально. Проще выровнять с помощью выравнивания.
32.
var d,b,c,y:integer;
begin
readln(d,b,c);
if d>0 then writeln(y=(1/sqrt(d))*arctan((b+c)/sqrt(d)));
if d=0 then writeln(y=(-1)/(b+c));
if d>5 then writeln(y=(1/(2*sqrt(d)))*ln(sqrt(d)));
readln;
<span>end.
Могу только этот номер:D</span>