uses crt;
var x:integer;
begin
writeln('Введи сколько времени сегодня играл Пудж'); readln(x);
if x>8 then writeln('Пудж здоров')
else writeln('Болен');
end.
<em>Это ветвящийся алгоритм,если больше 8 значит здоров,обратное значение- болен.</em>
string = 'Вырежьте два первых символа символьной строки и поместите их в конец данной строки'
print(string)
string = string + string[0] + string[1]
print(string[2:])
Пусть пару имеют 2n камней, тогда без пары тоже 2n камней. Каждая пара и каждый непарный камень занимают один столбец, поэтому всего будет занято n + 2n = 3n столбцов.
Всего доступно столбцов 110/2 = 55, поэтому 3n ≤ 55, n ≤ 18.
Максимальному n = 18 соответствует максимальное количество камней 4n = 72.
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.