Первая программа может выглядеть так:
uses Crt;
const n =6;
Type Mas= array [1..n] of integer;
var A: Mas;
i, Sum : integer;
begin
ClrScr;
Sum:= 0;
for i:=1 to n do
begin
A[i]:=i*i;
Sum:=Sum+A[i];
end;
for i:=1 to n do
if (A[i] mod 4=0 ) then WriteLn(' Номер школы: :', i);
Writeln (' Количество компьютеров: ', Sum);
ReadLn;
end.
Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми. Я бы сделал так
program haracteristy;
uses crt;
var vozrast: Integer;
begin
clrscr;
writeln ('Введите свой возраст');
read (vozrast);
if (vozrast >0) and (vozrast <18) then
write ('Вы еще очень молоды')
else if vozrast >18 then
write ('Вы в расцвете сил')
else
write('Ошибка! Возраст не может быть меншье нуля');
end.
по формуле ножно возводить 2 в степень битов в сообщении)))
N=2⁵=32
N=64
I= 1/64 мб = 126 бит
K=?
Решение:
2 в степени i = N ,следовательно i=6
K=126:6=21
Ответ:21 символ