Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в лодку помещается 2 человека? если так, то решение будет:
1. сперва перевправляются 2 , один возвращается назад на лодке.
2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .
3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .
4. переплывают 2 оставшихся .
1.
program xxx;
var i, n : integer
begin
writeln ('введите число n=');
readln (n);
writeln ('делители числа: ');
for i: = 1 to n do
if n mod i = 0 then writeln (i);
readln
end.
var
x,y: real;
readln(x);
y: =7*sin(x)*sin(x)-0.5*cos(x);
writeln(y);
var ch,n,i: longint;
ch1,s: string;
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
Популярные вопросы