1)это направление куда будут двигаться все обьекты
2)число равное тому сколько раз исполнитель повторит ваш алгоритм
Ответ дал: Гость
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
realdn
end.
Ответ дал: Гость
program yravnenie;
var a,b,c,d,x1,x2,p,q: real; begin repeat write('a= '); readln(a); if a=0 then writeln('error: a=0. enter another value'); until a< > 0; write('b= '); readln(b); write('c= '); readln(c); p: =b/a; q: =c/a; d: =sqr(p/2)-q; if d> 0 then begin writeln('x1 = ',-p/2-sqrt(d): 0: 5); writeln('x2 = ',-p/2+sqrt(d): 0: 5); end else if d=0 then writeln('x1 = x2 = ',-p/2: 0: 5) else begin writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5); writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5); end; readln; end.
Ответ дал: Гость
1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы
Популярные вопросы