Логика такова
ваня не с, тк как с и ваня отличники
петя не в, аналогично
саша не в, тк он отличник
петя не с, тк он троечник
коля не в и не п, тк они разного роста
значит САША - В
значит саша не п, не с, не к
значит КОЛЯ - С
петя не может быть п, тк тогда они с сашей будут разного роста
тогда ВАНЯ - П
а значит ПЕТЯ - К
прости, что так коряво, делал в фш, не до эстетики было, но, думаю, алгоритм понятен
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Var
S, tmp: real;
n, i: integer;
begin
write('Введите n:');
readln(n);
for i := 1 to n do
begin
tmp := 1 / ((2 * i + 1) * 3);
S := S + tmp;
end;
writeln(S:8:10);
readln;
end.
<span><span>Home – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + ←).</span><span>Home – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + ←)</span><span>End – перемещение курсора ввода текста в конец строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + →).</span><span>←↑→↓ - клавиши перемещения курсора ввода по тексту.</span><span>Ctrl + → - перемещение курсора на одно слово вправо.</span><span>Ctrl + ← - перемещение курсора на одно слово влево.</span><span>Page Up – на экранную страницу вверх.</span><span>Page Down – на экранную страницу вниз.</span><span>Ctrl + Page Up – на страницу вверх.</span><span>Ctrl + Page Down – на страницу вниз.</span><span>Ctrl + Home – переход в начало текста / документа.</span><span>Ctrl + End – переход в конец текста / документа.</span><span>Shift + F5 – переход к месту недавнего редактирования текста.</span></span>