1
var
i: byte := 1;
sum: integer := 0;
begin
//Предусловие
writeln('*** Цикл с предусловием ***');
while i <= 100 do
begin
sum := sum + i;
inc(i);
end;
writeln('Сумма = ', sum:5);
//Постусловие
sum := 0; i := 1;
writeln('*** Цикл с постусловием ***');
repeat
sum := sum + i;
inc(i);
until i > 100;
writeln('Сумма = ', sum:5);
//Счетчик
sum := 0;
writeln('*** Счетчик ***');
for i := 1 to 100 do sum := sum + i;
writeln('Сумма = ', sum:5);
<span>end.
<span>2
</span></span>var<span>
N: integer;
i: integer := 1;
sum: integer := 0;
begin
write('Введите N: ');
readln(N);
//Предусловие
writeln('*** Цикл с предусловием ***');
while i <= n do
begin
sum := sum + i;
inc(i);
end;
writeln('Сумма = ', sum:5);
//Постусловие
sum := 0; i := 1;
writeln('*** Цикл с постусловием ***');
repeat
sum := sum + i;
inc(i);
until i > N;
writeln('Сумма = ', sum:5);
//Счетчик
sum := 0;
writeln('*** Счетчик ***');
for i := 1 to N do sum := sum + i;
writeln('Сумма = ', sum:5);
<span>end.</span></span>
Вот тебе мой шедевр вместе с фото, которое ты прочитаешь...
да и совет на будущее, ДЕЛАЙ ВСЕ САМ ! не получается, значит тренеруйся,)
примерно 45 минут. Сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. Потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. Два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. Переплыв реку он даёт лодку матери. Она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.
Просто введи код в язык программирования Poscal - тебе и выдаст ответ.
Ну в данном случае S=31.