var
s : string;
flag : boolean;
i, c : integer;
begin
readln (s);
c := 0; flag := false;
for i := 1 to length (s) do
begin
if flag then
begin
if s[i] = ' ' then flag := false;
end
else
if s[i] <> ' ' then
begin
inc (c);
flag := true;
end;
begin
end;
end;
writeln (c);
end.
Вот решение - просто скачай файл, вот тебе кстати полезная ссылка - http://wpcalc.com/kvadratnoe-uravnenie-excel/
1. Для того, чтобы значение переменной A стало равно 2 необходимо, чтобы тело цикла выполнилось 2 раза. Так как при каждом вхождении в цикл переменная X уменьшается в 100 раз, значит она должна быть не менее 1000
2. Чтобы значение переменной B за два вхождения в цикл было равно 12 возможны следующие варианты:
a. когда последняя цифра числа Х = 2, тогда Х = 1002
b. когда последняя цифра числа Х = 1, тогда Х = 1101
c. когда последняя цифра числа Х = 0, тогда Х = 1200
Ответ: 3
А = "К<span>апитан корабля получает специальное указание</span>"
В = "Д<span>олжен покинуть порт на своем корабле</span>"
С = "О<span>н впредь лишается допуска в этот порт</span>"
а) А → В
б) ¬А → (¬В ⋁ С)
в) С ⋁ ¬А