в лодку помещается 2 человека? если так, то решение будет:
1. сперва перевправляются 2 , один возвращается назад на лодке.
2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .
3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .
4. переплывают 2 оставшихся .
Ответ дал: Гость
var
a: array[1..31] of real;
i,k: integer;
min: real;
begin
min: =50;
for i: =1 to 31 do
begin
readln(a[i]);
if a[i]< min then min: =a[i];
end;
k: =0;
for i: =1 to 31 do
if a[i]=min then k: =k+1;
writeln(k);
end.
Ответ дал: Гость
1) 35-25=10 (чел.) - не являются читателями школьной библиотеки
2) 35-20=15 (чел.) - не являются читателями районной библиотеки
3) (25+20)-35=10 (чел.) - читатели обеих библиотек
4) 20-10=10 (чел.) - читатели только районной библиотеки
5) 25-10=15 (чел.) - читатели только школьной библиотеки
Ответ дал: Гость
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);
Популярные вопросы