program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.
Во вложении файл формата Excel 2003. Макрос находится в проекте для листа 1
For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;
1. году 12 месяцев значит N=12 2^i=12 i=4 Ответ 4 бита
2.<span>Небольшое
</span>
Ну..можно потерять носитель информации...