1)60×3=180 сек
2)512000×180=92 160 000(бит)
(1 байт = 8 бит
1 Кбайт = 1024 байт,
1 Мбайт = 1024 Кбайт,)
3)92 160 000/8=11 520 000(байт)
4)11 520 000/1024=11250(Кбайт)
5)11250/1024=10,96(Мбайт)
Ответ 10,96 мегабайт
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Есть видео "Cоздание тестов в среде MS PowerPoint"
type
person=record
fam:string;
imya:string;
day:integer;
end;
var
a:array[1..50] of person;
i,n,z:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('fam-');readln(a[i].fam);
write('imya-');readln(a[i].imya);
write('day-');readln(a[i].day);
end;
write('z-');readln(z);
for i:=1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.