Я думая так: Прогулка отменяется, идет дождь я останусь дома
A - Аня, b - Боря, v - Вася, g - Галя, d - Даша, i - Иван.
a>b, v>g, d<i, v<a, d>b;
Мы знаем, что а>b, значит ,что b<v;
Мы знаем, что d>b, значит ,что b<i;
Мы знаем, что v>g и v<a, значит ,что b<v;
Следовательно мы нашли обладателя меньшей флешки. Им стал Боря.
Раз b самый меньший, то в дальнейших расчетах его можно не использовать.
Мы знаем, что a>v, а это значит ,что a>g т.к. v>g !
Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Write('S=',Range(1,n).Select(x->sqrt(3*x)).Sum)
end.
<u>Пример</u>
n= 5
S=14.5186255116972
Вводы и выводы бывают нескольких "видов". Есть простой, к примеру, и с переводом строки. Они различаются тем, как мы будем читать. read(тут должна быть переменная, которую вы считываете). Тут считывается что-то, и затем можно дальше продолжать работать. А readln(тут должна быть переменная, которую вы считываете) уже после считывания переходит на следующую строку. Можно так же подключить файл. Это происходит посредством команд. assign(название текстовой переменной, затем через запятую тут должно быть название файла или путь к нему в кавычках). Затем надо сделать reset(название переменной, с которй связан был ввод); Это простые примеры. Теперь вывод. Тут в принципе, то же самое. write(переменная или текст в кавычках) просто выводит после места, где мы на вводе\выводе остановились, пишет то, что нужно. А есть writeln(). он делает то же самое, затем переходит на следующую строку. Обьясним в примерах. Различие write и writeln
Есть два куска программы.
a:=10;
b:=20;
write(a);
write(b);
И второй.
a:=10;
b:=20;
writeln(a);
writeln(b);
Они различаются лишь четырьмя буквами, но вывод первой будет
1020
А второй
10
20
Что бы, кстати, при первом способе цифры не слипались, можно воспользоваться текстом. Изменим строчку
write(a); на строчку write(a,' '); и тогда вывод будет таким
10 20
Файловый вывод подключается так же. Однако есть различие. Там надо использовать вместо reset - rewrite и все. Ну и естественно, не путаем две переменные ввода и вывода. Вот простые примеры
Var a,b,c,p,s,rb,ro: real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
rb:=s/p;
ro:=a*b*c/(4*s);
writeln('rb = ',rb:6:2,' ro = ',ro:6:2);
end.
Пример:
4 4 4
<span>rb = 1.15 ro = 2.31</span>