F(6)=F(5)+2*F(4) =21+2*11=43
F(5)=F(4)+2*F(3) =11+2*5=21
F(4)=F(3)+2*F(2) =5+2*3=11
F(3)=F(2)+2*F(1) =3+2*1=5
F(2)=F(1)+2*F(0)=1+2*1=3
При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var c, i:integer;begin writeln('Введите число >> '); readln(c); writeln('Таблица умножения на '+c); for i := 0 to 10 do begin writeln(i+'*'+c+'='+i*c); end;end.
Тут можно разбить логическое выражение на два: то, что до знака конъюнкции и после.
Вспомним, при каких значениях выражение A & B истинно:
0 & 0 = 0
0 & 1 = 0
1 & 0 = 0
1 & 1 = 1
Только в одном случае, когда A и B истинны. Смотрим на наш пример. В нём A = (X < 3). Смотрим в список вариантов. Видим, что при любом значении, кроме четвёртого и третьего A будет ложным (3 < 3 - неверно, 4 < 3 - тем более неверно). Теперь приступаем к другой части выражения. Там у нас заключена дизъюнкция. Выражение A V B ложна лишь в одном случае, когда A и B = 0. Смотрим на условия. X не должен быть больше 2, значит 2 пункт отпадает (2 < 2 - неверно)
<h2>Ответ</h2>
1
var
s: string;
begin
readln(s);
foreach w: string in s.Split(' ') do
write(w[1] + w.Replace(w[1], '') + ' ');
<span>end.</span>
Program BP;
Uses crt;
var a:integer;
begin
clrscr;
Writeln('Введите температуру воды ');
readln(A):
if a<=0 then writeln('Лед');
if a>0 then begin writeln('жидкая '); exit; end;
if a>100 then begin writeln('Пар'); exit; end;
end.
