высказывание это - предложение на любом языке которого можно однозначно определить как истинное и ложное.
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.
Значит 2527= количество квартир * количество подъездов
2527 = n * m = 7 * 19 *19
Получается, что если подъездов 7, то в каждом 19 * 19 квартир, что отвечает 19 площадкам, и на каждой площадке в таком случае по 19 квартир.
Или может быть 19 подъездов, 7 этажей по 19 квартир на этаже
Или же 2527 = 7 * 361 * 1 = 133 * 19 * 1
133 подъезда, 1 этаж, на каждом этаже 19 квартир
361 подъезд, 1 этаж, на каждом этаже 7 квартир
Или же 2527 = 2527 * 1 * 1
2527 подъезд, 1 этаж, на каждом этаже по 1 квартире
1 подъезд, 1 этаж, 2527 квартир на этаже
Ответ: 1, 7, 19, 133, 361, 2527
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы диапазона: '); Read(a,b);
if b<a then Swap(a,b);
Range(a,b).Where(x->x mod 7=0).Println
end.
<u>Пример</u>
Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63