Подсчитаем объем одной страницы
40*32=1280 символов на странице
16бит=2 байта
1280*2=2560 байт в одной странице
60 Кб = 60*1024 Байт = 61 440 байт - занимает рассказ
61 440/2560 = 24 страницы
<span><span>const n=3;
type student=record
fam:string[20];
year:integer;
sex:string[1];
kurs:integer;
sport:string[30];
end;
var x:array[1..n] of student; i,j:integer;
p:student;
begin
for i:=1 to n do
with x[i] do begin
writeln('сведенья о ',i,' студенте:');
writeln('фамилия: ');
read(fam);
writeln('год рождения: ');
read(year);
writeln('пол( м или ж ): ');
read(sex);
writeln('курс: ');
read(kurs);
writeln('вид спорта: ');
read(sport);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i].fam>x[j].fam then begin
p:=x[i];
x[i]:=x[j];
x[j]:=p;
end;
for i:=1 to n do begin
with x[i] do
if (sex='ж') then writeln('Фамилия студентки: ',fam,' Курс: ',kurs,' Вид спорта: ',sport);
end;
end.</span></span>
#include <iostream>
#include <cstdlib>
using namespace std;
int main(int argc, char** argv) {
float x1,x2,x3,x4,mx;
cout<<"числа через пробел"<<endl;
<span> cout<<"x1 x2 x3 x4"<<endl;
</span> cin>>x1>>x2>>x3>>x4;
mx=min(x1,min(x2,min(x3,x4)));
cout<<"минимальное число = "<<mx<<endl;
system("pause");
return(0);
}
<span>
</span>
Var b,c,d: integer;
a:array [1..100] of integer;
begin
randomize;
writeln('введите длину массива');
readln(b);
d:=1;
for c:=1 to b do begin
a[c]:=random(10);
writeln(a[c]);
if a[c] <> 0 then d:=d*a[c];
end;
writeln('произведение не нулевых элементов массива ',d);
<span> end.</span>