Uses crt;
var a:array [1..1000] of integer;
n,i,k,p:integer;
begin
writeln('Введите количество домов ');
readln(n);
writeln('Вводите через пробел число жителей каждого дома ');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=1 then k:=k+a[i]
else p:=p+a[i];
end;
writeln;
if k>p then writeln ('В нечетных домах жителей больше ')
else writeln('В четных домах жителей больше ');
end.
А) 00000110
Б) 11111010 (не точно)
В) 10001000
Var
s: real;
n: integer;
begin
s := 2500;
n := 0;
repeat
s := 1.19 * s;
Inc(n)
until s >= 5000;
Writeln(n+1)
end.
<em><u>Тестовое решение:</u></em>
5