Не уверен верно ли я понял задание
void sqr(int m, int n)
{
int b = 0;
for (int i = m; i <= n; ++i) {
b -= i;
}
cout << pow(b, 2) << endl;
}
2 клетки. Потому что в условии описан квадрат, окаймление которого - пустота. Данным условиям удовлетворяет только 2 варианта:
С4 и D4. Во всех остальных случаях - беда)
Для решения этой задачи необходимо найти число, которое без остатка делится на 4 и на 6. Это число 12.
Если к Винни-Пуху придут 4 гостя, то они получат по 3 куска пирога: 12:4=3. Если 6, то им повезет меньше: 12:6=2.
Винни-Пуху пирог нужно разделить на 12 частей.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
Ответ:
6 28 496 8128
Var
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
<span>end.
Пример входных данных: Мама мыла раму
</span>Пример выходных данных: Мамамылараму
