1) var k,a,i,n : integer; t : Text; begin readln (k); n := 0; Assign (t,'test.txt'); Reset(t); i := 1; while not Eof(t) do begin read (t,a); if a = k then n := i; i := i +1; end; Close (t); writeln (n); end.
2)
var t,t1,t2 : Text; i : integer; a : real; begin Assign (t,'text.txt'); Reset (t); Assign (t1,'r1.txt'); rewrite (t1); Assign (t2,'r2.txt'); rewrite (t2); i := 1; while not Eof(t) do begin read (t,a); if i mod 2 = 1 then write (t1,a:3:3,' ') else write (t2,a:3:3,' '); i:= i +1; end; Close (t); Close (t1); Close (t2); end.
Напишите программу (python), которая соберет все подарки Иа от всех друзей.
Формат ввода
Целое число — количество строк, затем сами строки, в которых сначала вводится подарок, а потом через дефис, окруженный пробелами, имя друга.
Формат вывода
Вывести для каждого друга (друзья выводятся в обратном алфавитном порядке) список его подарков Иа, но уже в алфавитном порядке. Формат вывода:
Друг: подарок, подарок, подарок
Ввод
5
Букет из чертополоха - Кролик
Бант для хвоста - Кристофер Робин
Гвоздик для хвоста - Кристофер Робин
Спаржевый пудинг - Кролик
Зеленая тряпочка - Пятачок
Вывод
Пятачок: Зеленая тряпочка
Кролик: Букет из чертополоха, Спаржевый пудинг
Кристофер Робин: Бант для хвоста, Гвоздик для хвоста
var k,a,i,n : integer;
t : Text;
begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
end.
2)
var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
i := 1;
while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
end;
Close (t);
Close (t1);
Close (t2);
end.