ну или хард или винчестер
Нам дано: T - 9 секунд.
V - 256000 бит/c.
Решение: V=I/T
I=V*T= 256 000 * 9 = 2 304 000 бит.
Переводит из бит в кб.
2 304 000 / 8 = 288 000 байт
288 000 / 1024 = 281,25 кб.
Ответ: 281,25 кб.
У карондаша есть свойства мела
var x1,x2,x3,x4,i:integer;
function f(x1,x2,x3,x4:integer):real;
begin
f:=x1*sin(x2)+x3*sin(x4);
end;
Begin
for i := 1 to 10 do
readln(x1,x2,x3,x4);
writeln(" x1=",x1," x2=",x2," x3=",x3," x4=",x4," y=",f(x1,x2,x3,x4));
for j := 1 to n do
End.
<span>Описывается список с полями согласно заданию
type
student = Record
fam: String;
inn: string;
Year: integer;
god_p: integer;
kurs: 1..5;
gruppa: string;
b1, b2, b3: 1..5;
End;
Объявляются необходимые переменные и массив с типом записи</span>
<span>var
spisok: Array [1..N] Of student;
b, a: string;
i, j, k1: Integer;
И заполняется от 1 до N (N=5 установлена константа)
for i := 1 To N Do // идем от 1 до N и заполняем список
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
{......}
end;
Потом обрабатывается согласно заданию по вариантам
Скорее всего, что-то типо сортировки по году рождения, самых молодых пихают в начало.(глупо. можно было не городить такой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО)
Затем выводится 3 фамилии самых молодых
</span>
<span>for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;</span>