Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
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.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99);
Writeln('количество различных элементов->',mas.Distinct.Count);
end.
103 а)
Карп
Кара
Кора
Коза
Б)
Вол
Кол
Кот
Кит
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите