1)Алеша правильно ответил что сосуд изготовлен в 5 веке
2)Боря правильно ответил что сосуд финикийский
3)Гриша правильно сказал что сосуд не греческий
Ответ: Финикийский 5 век
Якщо всі підписи неправильні, то потрібно взяти кульку з коробки, на якій написано "Одна червона, она зелена". Обидві кульки будуть однакового кольору. Далі, у коробці, колір якого витягнули, також будуть дві кульки однакового кольору. Кульки різного кольору будуть у третій коробці.
Program gt;
var a:array[1..6]of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 6 do
begin
a[i]:=random(101)+20;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
writeln(s);
end.
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);
<span> 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);
<span> end.</span>
</span>
1г 2а 3б 4б 5б 6г 7в 8а
11в 12б 13а 14г 15в 16г 17а 18б 19в 20г