Var x, y, z, k: integer;
begin
readln(x, y, z);
k:=0;
if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем');end;
if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем');end;
if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;
if (k =0) then writeln('Переменных, кратных трем, не обнаружено!');
end.
Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
? заменяет какой-то один символ, * - любое количество любых символов (возможно, их отсутствие)
Значит, маске ?l*ck*.* соответствуют имена файлов, у которых вторая буква имени l и где-то после неё в имени есть ck.
- _click.txt - вторая не l
- black.ppt - ок
- lo3ck.sts - вторая не l
- clock.tt - ок
- blink.uta - нет ck
- applock.stu - вторая не l
- blocker.htm - ок
- elpack.ty - ок
- blocker.html - ок
Не удовлетворяют маске 1, 3, 5 и 6.
<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