Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<span>uses</span> crt;
<span>var</span> a<span>,</span>b<span>,</span>c<span>,</span>d<span>,</span>s1<span>,</span>s2<span>,</span>t<span>:</span><span>integer</span>; k<span>:</span><span>boolean</span>;
<span>begin</span>
clrscr;
<span>write</span><span>(</span><span>'Введите четырех значное число: '</span><span>)</span>; <span>readln</span><span>(</span>t<span>)</span>;
a<span>:=</span>t <span>div</span><span>1000</span>;
b<span>:=</span><span>(</span>t <span>mod</span><span>1000</span><span>)</span><span>div</span><span>100</span>;
c<span>:=</span><span>(</span>t <span>mod</span><span>100</span><span>)</span><span>div</span><span>10</span>;
d<span>:=</span>t <span>mod</span><span>10</span>;
s1<span>:=</span>a<span>+</span>b;
s2<span>:=</span>c<span>+</span>d;
k<span>:=</span>s1<span>=</span>s2;
<span>writeln</span><span>(</span>k<span>)</span>;
<span>readln</span><span>end</span>.
var i:real;
begin
i:=4.4;
while i<6.5 do begin
writeln(i);
i:=i+0.2;
end;
end.
1)Ввод с клавиатуры чисел a, b, l
2)расчёт по формуле:
Длинна шнурка = (7*a)+(2*l)+(6*b)