Ответ:
2 бита, 512 битов, 50 байтов, 500 байтов, 0,5 кбайта
Program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
case a of
1..5:
s:=n*2;
6:
s:=10.4;
7:
s:=10.8;
end;
writeln(s);
end.
<span>
n-число минут
a-день недели
если case не проходили то можно сделать if
</span>program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
if(a<6)then s:=n*2;
if(a=6)then s:=10.4;
if(a=7)then s:=10.8;
writeln(s);
end.
Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.
1 Гбайт = 2^30 байт
4 Гбайт = 2^120 байт
4 Гбайт =8^40 байт
x=40