Ответ:
48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
begin
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.
Канал связи – понятие не только физическое, но и логическое. Он подразумевает не только наличие физической линии связи, но и наличие логической договорённости о её использовании (такие договорённости называются протоколами).
Графический объект из панели инструментов который можно разместить на холсте, обычно это точка, окружность, кривая, прямая, прямоугольник
Program www;
var x,s:integer;
begin
read (x);
S:=0;
while x<>0 do
begin
If (x mod 5=0) then S:=S+x;
read (x);
end;
write (S);
End.