//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:
5
1
5
-1
-2
4
5
6
Пример вывода:
Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
Компьютерная программа или програмное обеспечение,набор расположенных поэтапно команд, которые позволяют компьютеру выполнить поставленные задачи.
Пусть у винтика файл весил 120мб а скорость скачки тогда 6 мб/мин,тогда у шпунтика файл 144 мб, до того как шпунтик поставил свой файл на загрузку, винтик успел скачать- 120 - (6*4)=96мб, когда они оба стали скачивать у них были два файла по 96мб и 144мб, а скорость = 3 мб/мин, тогда винтик скачивал 96/3= 32 а шпунтик 144/4=46
46-32=14(минут) разность между концами загрузок
1.
var y:real;
begin
write('y = ');
readln(y);
writeln(sqrt(sqrt(y)-5*y+8):5:3);
end.
Пример:
y = 0.09
2.802
2.
var x,y,t1,t2,t3:real;
begin
write('x = ');
readln(x);
t1:=x*x; // x^2
t2:=x+2.5; // x+2.5
t3:=t1*t2; // x^3+2.5*x^2
y:=t3-x; // x^3+2.5*x^2-x
y:=y+1; // x^3+2.5*x^2-x+1
writeln('1) y = ',y:5:2);
writeln('2) y = ',x*x*x+2.5*x*x-x+1:5:2);
end.
Пример:
x = 3
1) y = 47.50
2) y = 47.50
3.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c:6:4);
end.
Пример:
a = 3
b = 4
c = 5.0000
Больше всего правильный <img width="200px">