Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
Ну изи же
1)1
2121
3)YES
4)67
5)Не видно конец кода
Во вложении - рабочая книга MS Excel 2003
Var a, n, i, s : integer;
begin
read (n);
for i:=1 to n do
begin
read (a);
s:=s+a;
end;
write (s);
end.
В последовательном соединении
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Дано:
N=16 символов
I=1/16 МБайта=64 Кбайта=65536 байт=524288 бит
Найти:
K
Решение:
2i(2 в степени i)=N; 2i=16 ; i=4 бита
I=k*i ; k=I/i=524288/4=131072 символа
Ответ: 131072 символа.