1.
var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
begin
if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
x := x div 10
end;
write(s)
<span>end.
2.
var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
x := x div 10;
write(x + s)
<span>end.
3.
var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
begin
if x mod 10 > a then a := x mod 10;
if x mod 10 < b then b := x mod 10;
x := x div 10;
end;
write(a + b)
<span>end.</span></span></span>
var d,p,g,h,r,s,m:real;
begin
D:=1200;
g:=9.8;
s:=3.14*r;
Write('vvedite H i R zceres probel:');
readln(h,r);
p:=d*g*h;
m:=d*h*s;
end.
это для а и б,а что касается и то нужно знать сколько всего сосудов.
Program n1;
var a,k,sum: integer;
begin
readln(a);
k:=0;
sum:=0;
while a<>0 do
begin
if (a mod 2=0) then sum:=sum+a;
k:=k+1;
readln(a);
end;
writeln(k);
writeln(sum);
end.
<span>Формальные исполнители, то есть те, которые не понимают смысла алгоритма, а лишь выполняют указанные шаги и не могут их редактировать: собака, не понимающая смысл команд, телевизор, в общем - любые неодушевлённые исполнители. Неформальные - те, что понимают смысл алгоритма и могут вносить в него коррективы - скажем, человек.
Управление - процесс планирования организации мотивации и контроля,для достижения определённой цели.
Алгоритм-набор инструкций описывающий порядок действий исполнителя для достижения результата решения задачи за конечное число действий.
</span>
// PascalABC.NET 3.3
begin
var z:=ArrRandom(10,-50,50); z.Println;
var r:=z.Where(x->x>0).ToArray+z.Where(x->x<0).ToArray;
r.Println;
end.
Пример:
-46 42 -26 -23 8 50 -9 46 -50 0
42 8 50 46 -46 -26 -23 -9 -50
