Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
линейный (следования)
разветвляющийся (развилка)
циклический
1*2⁶+1*2⁵+0*2⁴+1*2³+0*2²+1*2¹+1*2⁰=
64+32+8+2+1=107
1*2⁶+0*2⁵+0*2⁴+0*2³+1*2²+1*2¹+0*2⁰=
64+4+2=70
program _1_2; uses crt; var dlina, shirina, vysota: real; begin clrscr; textcolor(14); writeln('вычисление объёма параллелепипеда.'); writeln('введите исходные данные: '); write('длина (см) -> '); readln(dlina); write('ширина (см) -> '); readln(shirina); write('высота -> '); readln(vysota); writeln('объём: ',(dlina*shirina*vysota): 7: 2); repeat until keypressed; end.
var i,n,s: nteger;
begin
read(n);
for i : = 1 to n do
if i mod 2 = 0 then s: = s-1/i;
else s: = s+1/i;
writeln(s);
end.
Популярные вопросы