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.
Значение выражения в десятичной - 7689
После перевода в пятеричную - 221224
ответ: 1
Для перевода делим число на пять, записывая остатки от деления в обратном порядке.
7689/5 --> 4
1537/5 --> 2
307/5 --> 2
61/5 --> 1
12/5 --> 2
2 --> 2
Принтер т.к перед печатью мы задаём ему алгаритм
Так это же бред, тут же все рандомно! тут не бужет конкретного решения..