Var n,m,s,q,w,e:Integer;
begin
Read(n,m);
for s:= 10 to 99 do
begin
q:= s div 100;
w:= s div 10 mod 10;
e:= s mod 10;
if (q+w+e=n) and(s mod m = 0) then
WriteLn(s);
end;
end.
Ответ: Документ формата *pdf.
Объяснение:
1 КБ = 1024 байт => 4 КБ = 4096 байтов.
Такием образом документ с разрешение docx. не поместиться на флеш-карту.
Type
Tmas = array [1..100] of longint;
var
m: Tmas;
i, j, proiz, N, sohr: longint;
begin
proiz := 0;
readln(N);
for i := 1 to N do
begin
readln(m[i]);
sohr := m[i];
for j := 1 to sohr - 1 do
begin
m[i] := m[i] * sohr;
end;
proiz := proiz + m[i];
end;
writeln(proiz);
end.
Множество учеников - множество детей
Множество школьников - множество первоклассников
Множество учеников 1 А класса- множество учеников первых классов
Так как в комнате четыре стенки,а стульев пять,то просто ставим пятый посредине и он будет считатся вторым каждому стулу,которые стоят возле стенки.