1.Сколько раз будет повторен цикл и каким будет значение переменной s после исполнения этой последовательности операторов? S:=0; i:=6; While i<=9 do begin S:=S + 12; i:=i + 1; end;

2 Определите значение переменной s (нарисовать блок-схему алгоритма, записать ответ):

program z_2;

var x,y: integer;

begin

S:=0;

i:=0;

While i<5 do begin

i:=i + 1;

S:=S + 2*i;

end;

writeln (‘s=’, s);

end.

xD

uses crt;

var

dt,t1,t2:LongInt;

function GetTime:LongInt;

var

substr,str:string;

ERR,step,spacepos,code,num:Integer;

t:longint;

begin

ERR:=0;

repeat

t:=0;

step:=1;

if ERR<>0 then writeln('Nepravilnie dannie, povtorite vvod:');

ERR:=0;

readln(str);

str:=str+' ';

repeat

spacepos:=pos(' ',str);

if (spacepos<>0) then

begin

substr:=copy(str,1,spacepos-1);

delete(str,1,spacepos);

val(substr,num,code);

if code=0 then

begin

if (step=1) then begin if (num>=0) and (num<=23) then t:=t+num*60*60 else ERR:=3; end;

if (step=2) then begin if (num>=0) and (num<=59) then t:=t+num*60 else ERR:=3;end;

if (step=3) then begin if (num>=0) and (num<=59) then t:=t+num else ERR:=3;end;

inc(step);

end

else ERR:=2;

end else ERR:=1;

until ((step=4) or (err<>0));

until err=0;

GetTime:=t;

end;

begin

writeln('pervoe vremy:');

t1:=GetTime;

writeln('vtoroe vremy:');

t2:=GetTime;

if t2>=t1 then dt:=t2-t1 else dt:=t2-t1+24*60*60;

writeln('raznica v sekundah: ');

writeln(dt);

end.

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

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

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

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

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