Бит - минимальная еденица
Правельный ответ - г. Так как все остальные являются антивирусными программами.
Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.
Блок-схемы - в прилагаемых файлах.
Программы:
1)
var i:integer; p:longint;
<span>begin
p:=1;
for i:=5 to 12 do p:=p*i;
writeln('p = ',p);
readln;end<span>.
var i:integer; p:longint;
begin
p:=1;
for i:=12 downto 5 do p:=p*i;
writeln('p = ',p);
readln;end.
Результат:
p = 19958400</span></span>
Презинтация-показ слайдов с звуковыми эффектами.