Пример циклического алгоритма: собрать все ягоды на поляне.
команды цикла:
1) сорвать ягоду
2) положить ягоду в корзину
условие:
ягод на поляне нету.
выполнять команды цикла до тех пор, пока условие не будет выполнено.
Program fantscrin;
Var a: array [1..10] of integer;
i,k,g:integer;
Begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
write(a[i], ' ');
writeln('');
write('К = '); readln(k);
g:=0;
for i:=1 to 10 do
if(a[i] = k) then g:=i;
writeln(g);
End.
Заменяет в строке
var
s : string;
i, lim : integer;
begin
readln (s);
i := 1;
lim := length (s);
while (i <= lim) do
begin
if s[i] in ['1'..'9'] then
begin
if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
begin
write ('ten');
inc (i);
end
else
case s[i] of
'1' : write ('one');
'2' : write ('two');
'3' : write ('three');
'4' : write ('four');
'5' : write ('five');
'6' : write ('six');
'7' : write ('seven');
'8' : write ('eight');
'9' : write ('nine');
end;
end
else write (s[i]);
inc (i);
end;
end.<span>
</span>
Пусть х - это фрешка-гамбургер (xDDDDDDD), y - фрешка без крышки, z - фрешка вместе с крышкой.
x+2y+3z=40
}
2x+4y+9z=104
2x+4y+6z=80
(2x+4y+9z)-(2x+4y+6z)=104-80
3z=24
z=8
x+6y+3z-(x+2y+3z)=58-40
4y=18
y=4,5
x+2×4,5+3×8=40
x=40-24-9
x=7