FORTRAN 90
На паскаль переводится очень легко
program for_znanija
implicit none
real :: a,b,dx,x,f
integer :: k
print *,'Введите левую границу'
read *, a
print *,'Введите правую границу'
read *, b
print *, 'Введите шаг'
read *, dx
x=a
k=0
do while (x<=b)
print '(a,f5.2,a,f8.4)','При x=',x, ' значение функции f=',f
f=tan(x)
x=x+dx
enddo
end
На скриншоте тоже моя программа, но написана ранее, поэтому там есть небольшие изменения.
Справа проверка на работоспособность. Функция tg(x).
Пересечение дает множество, составленное из элементов, присутствующих в обоих исходных множествах. Поэтому в пересечении не может быть больше элементов, чем в меньшем из исходных.
Ответ: 32 элемента.
//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
1)48000*32=1536000бит/с=187,5Кбайт/с
2)4*60=240с
3)187,5*240=45000Кбайт=44Мбайт