Program programm;
var A,B: integer;
begin
writeln('Введите число A: ');
readln(A);
writeln('Введите число B: ');
readln(B);
if (A > 1) and (B < -3) then
writeln('Неравенство ВЫПОЛНЕНО!')
else
writeln('Неравенствено НЕ выполненно!');
end.
9BC в двоичную, шестнадцатиричная и двоичная - родственные системы счисления, поэтому
9=1001
B=1011
C=1100
9BC=1001 1011 1100
Procedure astSquare(n: integer);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
write('*');
writeln();
end;
end;
{
Для теста:
begin
astSquare(4);
end.
Программа выведет 16 звёздочек:
****
****
****
****
}
Частично и часто...спасибо за внимание.
Может быть не исполнимые, а исполняемые файлы? Тогда эти вирусы так и называются - файловые. Обычно такие файлы с вирусом имеют расширение exe или реже com
Удачи! :)