Условие Вертолёт прилетел!
Вас забрали с острова и увезли на материк. Как только вас доставили в город, местная больница приняла вас на терапию после этого непростого приключения.
Будет полная проверка состояния здоровья, процедуры по восстановлению кожи от ожогов, оказание с небольшими ранами и травмами, что случились во время тяжелой жизни на острове.
Возьмите класс Human (из второй задачи классной работы) и допишите туда метод healing (выздоровление).
Что делает этот метод:
hp (здоровье) устанавливает в значение 10
прибавляет +3 к силам
голод уменьшает до 1
счастье увеличивает на +5
Вам понадобится метод print_info (возьмите его из второй задачи классной работы или напишите заново).
Формат входных данных
Ничего вводить и выводить не требуется.
Формат выходных данных
Напишите только код класса Human.
n,k,i:integer;
begin
for n:=1 to 2 do
begin
writeln('Введите строку ',n,':');
readln(s);
k:=0;
for i:=1 to length(s) do
begin
case s[i] of
'[': k:=k+1;
']': k:=k-1;
end;
end;
if k=0
then writeln('В строке ',s,' количество [ и ] одинаково')
else writeln('В строке ',s,' количество [ и ] не одинаково');
end;
end.
Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
var
timeInSec:integer; // время в секундах
color, s, m, h:byte;
begin
h := 4; //часы
m := 5; //минуты
s := 23; //секунды
timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды
color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}
{потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас цвет}
case color of //вывод ответа
0: writeln('Горит зеленый свет'); //0 - это зеленый свет
1: writeln('Горит желтый свет'); //1 - это желтый свет
2: writeln('Горит красный свет'); //2 - это крсный свет
end;
end.