Вроде правильно
N - 16 символов, К1 - 25, К2- 64, I - ?
N=2^i, 16=2^i, i=4
К= К1*К2=25*64=1600
I=i*K= 1600*4=6400 (битов)
6400 битов = 800 байтов
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
Ключевые фразы:"...для решения научных и производственных задач", "...чертежи рассчитанных конструкций". Термины: "результаты", "графики", "диаграммы".
Ответ: научная графика.
40, так как m*n = 20*40, то m= 20, n =40.