var a,b,c:integer;
begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.
трех зайцев по углам, двоих вдоль стен
a) Лаборатория Касперского.
b) Файл, заражённый вирусом, останется на компьютере в том случае, если не проверять компьютер на наличие вирусов.
c) Антивирусные программы могут сканировать все файлы которые имеются на компьютере на наличие вредоностных программ или непонятных файлов, а также изменять или удалять содержимое компьютера (в смысле после нахождения вируса, антивирус может поместить его в карантин или вовсе удалить).
1)
var
a, b:real;
begin
write('Катет A = ');
readln(a);
write('Катет B = ');
readln(b);
writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
end.
2)
var
a, b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a=b then writeln('Сумма a и b = ',a+b)
else writeln('Произведение a и b = ',a*b);
end.
3)
var
a, b, c, D, x1, x2: real;
begin
write('Коэффицент A = ');
readln(a);
write('Коэффицент B = ');
readln(b);
write('Коэффицент C = ');
readln(c);
D := sqr(b) - (4 * a * c);
if D > 0 then begin
x1 := (-(sqrt(D)) - b) / (2 * a);
x2 := (sqrt(D) - b) / (2 * a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end
else if D = 0 then begin
x1 := -b / 2 * a;
writeln('x = ', x1);
end;
if D < 0 then writeln('Корней нет.');
end.
