Органы чувств-язык,нос,кожа,уши,глаза
чувств-грусть,радостьи так далее я думаю так
Program Premier_liga_2;
var B, Diff: array [1..16] of integer;
Team: array[1..16] of string;
I, K, X, Z, P: integer;
St: string;
begin
writeln('Введите названия команд и полученные ими очки');
for I:=1 to 16 do
begin
write(I, ' Название: '); readln(Team[I]);
write('Очки: '); readln(B[I]);
write('Забитые мячи: '); readln(Z);
write('Пропущенные мячи: '); readln(P);
Diff[I]:= Z-P;
end;
for K:=1 to 15 do
for I:=1 to 16-K do
if (B[i] < B[I+1]) or
((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then
begin
X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;
St:=Team[I]; Team[I]:=Team[I+1];
Team[I+1]:=St;
end;
for I:=1 to 16 do
begin
for K:=1 to 18-length(Team[I]) do
Team[I]:=Team[I]+' ';
writeln(I:2,' ',Team[I]:18,B[I]:2)
end;
end.
<u>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('N=');
var f,g:file of integer;
ReWrite(f,'f.bin');
Randomize;
for var i:=1 to n do Write(f,Random(101)-50); // [-50;50]
Seek(f,0);
ReWrite(g,'g.bin');
var a,b:integer;
Writeln('Содержимое файла f');
Read(f,a); Write(a,' ');
while not f.Eof do begin
Read(f,b);
Write(b,' ');
Write(g,a*b);
a:=b
end;
f.Close;
Writeln;
Writeln('Содержимое файла g');
Seek(g,0);
while not g.Eof do begin Read(g,a); Write(a,' ') end;
g.Close
end.
<em>Пример</em>
N= 15
Содержимое файла f
43 14 -8 30 -50 -21 -15 -19 -19 -32 22 23 -36 19 -43
Содержимое файла g
602 -112 -240 -1500 1050 315 285 361 608 -704 506 -828 -684 -817
Нет, например задачи NP - класса 3-SAT и 3-NCF, также задача факторизации за ф-ию от длины. Решение - экспонента, а проверка ответа - линейная(полином)
#include <iostream>#include <iterator>#include <algorithm>#include <vector>#include <string>#include <numeric>
int main(void){ std::cout << std::accumulate(std::istream_iterator< int >(std::cin), std::istream_iterator< int >(), 0); return 0;}