Подробное решение внутри файла
Using System;
public class Test
{
public static void Main()
{
double a, b, x, p=1;
int k=0;
Console.Write("a = ");
a = double.Parse(Console.ReadLine());
Console.Write("b = ");
b = double.Parse(Console.ReadLine());
for (int i=1; i <= 8; i++) {
x = double.Parse(Console.ReadLine());
if ((x>=a)&&(x<=b)){
k++; p*=x;
}
}
Console.WriteLine("k = {0} p = {1}", k,p);
Console.ReadKey();
}
}
Пример:
a = 3
b = 8
7
9
2
0
6
4
3
5
k = 5 p = 2520
Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>
Браузеры Программы, с помощью которых просматриваются гипертексты в системе Всемирной паутины, называют
На ступени бесконечной лестницы.