<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, m) := ReadInteger2;
var a := ArrRandom(10, n, m);
a.Println
end.
<h2>-8 13</h2><h2>-7 11 10 -6 -5 -2 -4 13 13 10</h2>
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
Программа без синтаксических ошибок:
program asd;
var
a,b,c,n, k: longint;
const i=10; j=10;
begin
n:=10*i + 15*j;
write(n,'');
a:= 0;
write(a,' ');
b:= 1;
write(b,' ');
for k:=3 to n do begin
write(a+b,' ');
c:= b;
b:= a + b;
a:= c;
end;
readln
end.
Так как условия задачи нет, то делает ли программа то, что нужно - неизвестно.
нажимай на любые синие квадратики или поставь все квадраты ровно!
64=2^i
i=6
n=57344*6=344064 бита=43008 байтов = 42 кб