Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
1. провести скан компьютера антивирусом
2. если нашёл антивирус то очистить
3. если не нашёл ищем вирус вручную
4. если реклама в браузере то ищем через код элемента
5. если нашли то следуем к корневой папке и удаляем
6. если рекламка на самом пк, то стоит нажать, и скачав утилиту просмотреть последние действия и с каким файлом они совершались, в последствии удалить
7. если же вирус типа троян, то так же с помощью какой-либо утилиты просмотреть какие файлы недавно появились на пк и удалить
8. если же они не удаляются, являясь задействованными где либо, с помощью диспетчера задач завершаем задачу и удаляем
9. в случае если файл скрыт, через проводник включаем видимость скрытых файлов и папок и удаляем
10. в случае если данный файл не удаляется вообще, можно просто его отключить, либо через сторонние программы, дающие право удалять корневые программы избавиться от них
11. ещё раз на всякий случай включить полную проверку антивирусом
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) приведена во вложении
3
X v Y v -Z
1)0 v 0 v 1=1
2)1 v 1 v 1=1
3)1 v 0 v 1=1
Program a1;
uses crt;
var
ta,b, i,s:integer;
begin.
readln(a);
readln(b);
s:=0;
if a > b then
for i:= a to b do
if i mod 7 = 0 then
s:=s+i;
else
else
if b > a then
for i:= b to a do
if i mod 7 = 0 then
s:=s+i
begin
end;
writeln(s);
end.