uses crt;
var i,count:integer;
a:array[1..15] of integer;
begin
randomize;
count:=0;
writeln('Первый екзамен сдало 15 человек ');
for i:=1 to 15 do
begin
a[i]:=random(5)+1;
if a[i] = 2 then inc(count);
end;
for i:=1 to 15 do writeln('Студент ',i,' написал на ',a[i],' балов '); //не обезательно
writeln('На екзамен допущено ',count,' человек!! ');
readln;
end.
1) <span>в) шестигранник
</span>2) в) латинскими буквами, специальными символами, арабскими цифрами
Var
c:char;
k:integer;
FlagBlank:boolean;
begin
Read(c);
case c of
'К','к':begin k:=1; FlagBlank:=True end;
' ':begin k:=0; FlagBlank:=False end;
'.':k:=0;
else begin k:=0; FlagBlank:=True end
end;
while c<>'.' do begin
while (not FlagBlank) and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
while Flagblank and (c<>'.') do
begin Read(c); FlagBlank:=(c=' ') end;
if UpCase(c)='К' then Inc(k);
end;
Writeln(k);
end.
172(8) = <span>122(10)
2ЕА(16) = </span>746<span>(10)
101010(2) = 42</span><span>(10)
10.1(2) = 2.5</span><span>(10)
243(6)</span> = 99<span>(10)
</span>51(10), 21(10), 29(10), 27(10) соответственно =>
а) <span>110011(2)
б) </span><span>111(4)</span>