var
x: string;
arr: array of char;
begin
readln(x);
arr := x.Split(' ')[1].ToCharArray();
System.Array.Reverse(arr);
writeln(length(arr), ' ', new string(arr));
end.
---------------------------------------
var
c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
r, q, s: real;
i, a, b: byte;
begin
q := 1;
i := 1;
r := c.Min();
while (i < length(c)) do
begin
q *= c[i];
i += 2;
end;
readln(a, b);
s := b - a - 1;
writeln('T = ', (R / Q + 1) + S);
end.
-----------------------------
const
k = 5;
p = 5;
var
f: array [1..k, 1..p] of string;
o: real;
df: byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 99).ToString();
write(f[i, j]:3);
if (j >= 7 - i) then
begin
o += integer.Parse(f[i, j]);
df += 1;
f[i, j] := '██';
end;
end;
writeln();
end;
writeln();
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
writeln(o / df);
end.
Без библиотек.
int main ()
{
int S = 0; int k, n;
cin >> n;
for (k = n; k != 0; k--)
{
if (k > 2)
S = S + k;
}
cout << S << endl;
system ("pause");
return 0;
}
Решение D4;D7, а те два не входят
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока не снизу свободно и слева свободно
закрасить
влево
кц
кон
Я знаю, информатика Босова 7 класс?
Имя (везде первые буквы)
М В Л А
инструмент
С + - - -
У - - + -
П - + - -
К - - - +
факультет
Б ** - ** -
И - - - +
Г - + - -*
<span> Ф ** - ** -
</span>*ПИОНИСТ НА ГЕОГ. А КТО НЕ ПИОНИСТ-НЕ НА ГЕОГ., ЗНАЧИТ АНДРЕЙ НЕ ГЕОГРАФ.
Т.К. ЛЕОНИД НЕ НА ГЕОГ., ТО ОН НЕ ПИОНИСТ,ЗНАЧИТ ВЛАД-ПИОНИСТ, И ОН НА ГЕОГ.
<span>**Но кто биолог и физик - я не догадалась(да и вопроса такого не стоит). </span>