1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
водитель с автобусом и остановкой
автобус с водителем пассажиром контролером
пассажир с автобусомостановкой билетом
контролер с билетом и пассажиром
Рассуждения строим опираясь на то, что заявление Мердока учитывать не нужно, поскольку неизвестно, истинно оно или ложно.
1. Допустим А - Мердок. Тогда утверждение B истинно, следовательно утверждение С должно было ложным (рыцарь должен сказать правду, а лжец - солгать). Но С истинно, следовательно А - не Мердок.
2. Допустим В - Мердок. Тогда утверждение А ложно, а утверждение С должно быть истинным. Так и есть, следовательно В может быть Мердоком.
3. Допустим С - Мердок. Тогда утверждение А ложно, а утверждение В должно быть истинным. Но утверждение В ложно, следовательно С - не Мердок.
Ответ: В - Мердок.
Var
i:integer;
x:real;
begin
x:=10000;
while x<20000 do
begin
x:=x*1.05;
i:=i+1;
end;
writeln('Ответ: ',i);
end.
Т.к. язык не указан, написал на паскале.
На сколько я понял, это должно выглядеть как-то так:
https://pastebin.com/puua5grq