Выделены отдельно Р и S в 4 и 6 блоке ( можно их не писать , а P и S записать в 9 блоке( в нем же допиши вывод ,а во 2 блоке ввод, забыл)). Чуть в кадр не поместился, но у тебя все эти формулы в пограмме. Удачи!
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
При совершении преступления " собирают инфу" потом,
"Обрабатывают ее", тоесть рассматривают улики и ищут схожесть и тд. , затем упрощается, для более легкого понимания . При обьяснении урока или темы мы "запоминаем инфу" , учитель передает ее, а мы ее принемаем. Разрушаются ( удаляется) .мы как обычно не все помним, кое-что забывается, тоесть мозг " удаляет " ненужную для нас инфу: вы помните то что ели на завтрак неделю назад? Так же информация можно измерить в писмености она измеряется буквами , в математике цифрами и занками , а в компе байтам и килобайтами и тд.
Мы можем "копировать" инфу : ксеракс "копирует" лист бумаги тоесть он копирует инфу , находящеюсегося на этом листке.
При пересказе текста мы чаще не все сразу читаем что бы пересказать, а читаем " часть " книги а потом еще и еще. Тоесть мы " делим ее"
Ответ:
Сплитишь строки в два списка, потом в цикле пробегаешь по каждому слову из первого списка и проверяешь есть ли это слово во втором списке, если есть - выводишь, смотри картинку
Объяснение:
