1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
Int sum(int X[]){
int s = 0;
for(int i = 0; i<324; i++){
if (X[i]<0) return s;
s += X[i];
}
return s;
}
1) 260 байт, т.к. 1 байт = 8 бит, 65(символов) * 4 байта= 260 байт
Ответ:
Перепроверь правильность написания формул. Проблема может быть даже в точке
В миллиарде 9 нулей. 1 000 000 000