Var
a,b:integer;
Begin
Writeln('Введите а и b через пробел');
Readln(a,b);
Writeln(sqrt(a*b));
End.
//PascalABC.Net
//1
var
a, b, c: real;
begin
readln(a, b, c);
writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.
//2
var
a, b, c: real;
begin
readln(a, b, c);
writeln('Наименьшее число: ', min(a, min(b, c)));
writeln('Наибольшее число: ', max(a, max(b, c)));
end.
512=2^9 1000=2^3 *125 512000=2^12 *125 6=2*3
Размер файла = (2^12 * 125 * 2 * 3 ) бит =(2^10 * 375) байт =375 Кбайт
Ответ 375 Кбайт
int main(int argc, char* argv[])
{
char s[256] = {0};
char prevChar = {0};
std::cin >> s;
int len = strlen(s);
prevChar = s[0];
int count = 1;
for (int i = 1; i < len+1; i++)
{
if (s[i] == prevChar) {
count++;
} else {
printf("%d %c\n", count, prevChar);
count = 1;
prevChar = s[i];
}
}
return 0;
}
Начальный день, когда растение было высотой 20см, считаем нулевым. Через день растение вырастет на 2 см, станет 22 см и это будет 1-й день.