Привет!
var
x,a,y: integer;
begin
y:=0;
for x:=100 to 999 do
begin
a:= x mod 10;
if (a mod 8 = 0) and (a<>0) then
begin
write(x,' ');
y:=y+1;
end;
end;
writeln;
writeln('Их количество: ',y);
end.
2) 49 - единица, можно проверить по таблице ascii(странно, правда?).
Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
а) антивирус avast
б) в том случае когда пользователь разрешит сохранение этого файла на компьютер
в) сканирование файлов на вирусы, проверка безопасности соединения, блокировка вредоносных программ