Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков =)
var x, a, b, k, i, wa, wb: integer;
begin
readln(a, b);
readln(k);
for i := 1 to k do
begin
x := random(5) + 1;
writeln(x);
if ((abs(a - x) > abs(b - x))) then wa := wa + 1;
if ((abs(a - x) < abs(b - x))) then wb := wb + 1;
end;
if (wa > wb) then writeln('Ann win!')
else
if (wb > wa) then writeln('Boris win!')
else
writeln('No win;)');
<span> writeln(wa, ' - ', wb);
</span>end.
32 символа × 16 бит. кодировка = 512 бит
ее переписали в 8 бит кодировку ,значит 32 символа×8= 256 бит
Приплюсовываем еще 56 символов в 8 бит кодировке
256+(56×8)=704 бита
var
<span> a, h: </span><em>real</em>;
begin
readln(a, h);
writeln('S = ', 0.5 * a * h);
<span>end.
-----------------------------------
var
a, b, m: <em>real</em>;
begin
readln(a, b);
m := (a > 3 ? a + b : a - b);
writeln('m = ', m);
<span>end.
P.S. Учиться надо, а не тройки на сайтах выпрашивать...</span></span>
Ответ:
пользователь
Объяснение:
ответ содержится в самом вопросе
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>