1) 5 + 33 div 6 = 5 + 5 = 10
2) -47 mod 9 = -2
3) 24 div 8 - 13 mod 6 = 3 - 1 = 2
4) 1/2 - 17 mod 8 = 1/2 - 1 = -1/2
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
12) var A: array[1..7] of integer;
k: integer;
begin
randomize;
for k := 1 to 7 do
A[k] := random(5);
write("vvedite den' nedeli: ");
readln(k);
if (k < 1 or k > 7) writeln("error");
else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]);
else write("vyhodnoy");
end.
13) var k: real;
begin
write("vvedite chislo: ");
readln(k);
if (k > 0) then write("polozhitel'noe, ");
else if (k < 0) then write("otricatel'noe, ");
else write("nol', ");
if (k mod 1 <> 0) then write("neceloe, ");
else write("celoe, ");
if (k mod 2 <> 0) then writeln("nechetnoe");
else writeln("chetnoe");
end.
<span>"_лес_" - 5 символов
пусть кодировка 8 битовая
5*8 = 40 бит = 5 байт
</span>
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
