Program enot;
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
<span> end.</span>
ЛВС - это локальная сеть, в нее можно подключить серверы, она состоит из ПК и Раб. Станций и обмениваются данными по средствам линии передачи данных. А принтеры подключаются к компьютерам и не входят в локальную сеть.
Пуск-завершение работы или принудительное
Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
program sym
var p:array[1..12] of integer;
s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
p[i]:=i*i; //если нет уже готового массива
For i:=1 to 12 do
s:=s+p[i];
write(s)
end.
Ну тут кстати массив излишен, если надо просто найти сумму:
program sym1
var s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
s:=s+i*i;
write(s)
end.
Я у себя не проверял, но должно работать)
Var
l,k,j,t,n1,m,p,s,n:longint;
begin
read(n);
l:=n div 60;
k:=n mod 60;
if k>34 then
l:=l+1
else
begin
j:=k div 10;
t:=k mod 10;
if t=9 then
j:=j+1
else
n1:=t;
end;
writeln(n1,' ',j,' ',l);
<span>end.</span>