33(k)+22(k)+16(k)+17(k)=100(k)
Перейдем к десятичной системе счисления.
(3k+3)+(2k+2)+(k+6)+(k+7)=k²
k²-7k-18=0
D=49+72=121; √D=11
k₁=(7-11)/2=-2 < 0 - не удвлетворяет
k₂=(7+11)/2=9
Следовательно, <em><u>система счисления девятеричная.</u></em>
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while (a<>0) do
begin
if(a mod 5=0) or (a mod 7=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.
{
правильная программа, кол-во элементов вводится с клавиатуры
}
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.
Int P = допустим 20;
int S;
S = P/4 * P/4 ;
возможно не так я не знаю паскаля но алгоритм правельный
Названия городов пишутся с большой буквы!
