Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>
Var s,t,n:integer;
begin
writeln('введите n>999');
readln(n);
s:=(n div 100);
if s>10 then s:=s mod 10;
t:=(n div 1000);
writeln('количество сотен-->',s);
writeln('количество тысяч-->',t);
end.
var c: array [1..20] of integer;
i,s1,s2: integer;
begin
s1:=0;
s2:=0;
for i:=1 to 20 do begin
write('Ввод значения для c[',i,'] - ');
readln(c[i]);
if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];
end;
if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')
else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')
else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');
end.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
Первое число в паре -- 9-литровый сосуд
Второе число в паре -- 5-литровый сосуд
0 0 -> 0 5 -> 5 0 -> 5 5 -> 9 1 -> 0 1 -> 1 0 -> 1 5 -> 6 0