<u><em>Microsoft QBasic</em></u>
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION
program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.
Нужно заключить выражения между and в скобки т.к. приоритет выполнения операции <u><em>and</em></u> выше чем у <u><em>></em></u> и условие выполняется неверно.
Правильная запись шестой строчки:
if ((a+b)>c) and ((a+b)>b) and ((c+b)>a) then
Отец сказал: "Сынок,после школы зайди в магазин и купи хлеб с молоком".
Получил задание - Сохранил в памяти - Выполнил задание
Есть 3 ответа, они расположены в последовательности действий:
3. На сравнении программных кодов с известными вирусами;
4. На определении заражённых файлов.
<span>1. На удалении зараженных файлов; </span>