Program Primer;
Var
N, result : real;
Begin
Writeln('Введите значения переменной N');
Write('N=');
Readln(N);
Result := sqr((9+N)*9);
Writeln ('sqr((9+N)*9)', result:8:0);
Readln;
End.

Запусти Паскаль, введи данную программу, получи результат, если N=3.
(В окошко для ответа запиши только числовое значение!)

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.

я думаю так:

нечетный ряд чисел ( то есть первая цифра, третья, пятая, седьмая) увеличивается на 5, а четный (вторая, четвертая, шестая) на 1

1,3,6,4,11,5,16,6