Пользуясь графиком изменения работо найдите истинные высказывания
1)подъем работо начинается в 8
2)утомление длится с 12до14ч
остальное наверху даю30б​

Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  kk : Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  kk := 0;
  for i1 := 1 to 9 do
    for i2 := 0 to 9 do
      for i3 := 0 to 9 do
        if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
          if ( Frac((i1+i2+i3)/7)=0 ) then
          begin
            Chislo := i1*100 + i2*10 + i3;
            if ( Frac(Chislo/7)=0 ) then
            begin
               Memo1.Lines.Append(inttostr(Chislo));
               inc(kk);
            end;
          end;
end;

1) Тут смотря по содержанию писем. Если с угрозами - агрессия, если простой спам или вымогательство/по мошенничество

2) Если ссылка надежная (ведет, например, на ютюб или от вашего хорошего знакомого) и если коррупция подается в негативном свете, то тут ничего такого вообще нет, хотя может быть мошенничество - не переходите по непонятным ссылкам от незнакомцев!

3) Это мошенничество и по Есть более надежные тяжело больным детям

4) Это мошенничество чистой воды. В таком случае немедленно блокируйте аккаунт или удаляйте его, ну, или хоть поменяйте пароль на пипецки сложный и немедленно свяжитесь с друзьями, которые получили угрозы и объясните ситуацию

Будьте осторожными в Интернете!