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); end.
2 var 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); end.
1. I wouldn’t buy that jacket if I were you. – The price is too high. I’d probably live to regret it! — Я бы не купил этот куртку, на вашем месте. — Цена слишком высокая. Я бы, наверное, пожалел об этом!
2. That new comedian at the club is brilliant. – I nearly died laughing. — Этот новый комик в клубе блестящий. — Я чуть не умер от смеха.
3. He’s just spent six months backpacking around Asia. – I think, it was very difficult to live out of a suitcase. — Он провел шесть месяцев, занимаясь альпинизмом в Азии. — Мне кажется, было очень трудно жить на чемоданах.
4. I heard they’ve got a new CD out. – I’m dying to listen to it with you. — Я слышал, что у них появился новый диск. — Я умираю, как хочу послушать его с тобой.
5. Take my advice and don’t go to see it. – I nearly died of boredom. — Примите мой совет и не ходите смотреть это. — Я чуть не умер от скуки.
6. The exams are over! Now we can relax. – Let’s go out and live it up! — Экзамены закончены! Теперь мы можем расслабиться. — Пойдем погуляем и отметим это!
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);
end.
2
var
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);
end.
2. That new comedian at the club is brilliant. – I nearly died laughing. — Этот новый комик в клубе блестящий. — Я чуть не умер от смеха.
3. He’s just spent six months backpacking around Asia. – I think, it was very difficult to live out of a suitcase. — Он провел шесть месяцев, занимаясь альпинизмом в Азии. — Мне кажется, было очень трудно жить на чемоданах.
4. I heard they’ve got a new CD out. – I’m dying to listen to it with you. — Я слышал, что у них появился новый диск. — Я умираю, как хочу послушать его с тобой.
5. Take my advice and don’t go to see it. – I nearly died of boredom. — Примите мой совет и не ходите смотреть это. — Я чуть не умер от скуки.
6. The exams are over! Now we can relax. – Let’s go out and live it up! — Экзамены закончены! Теперь мы можем расслабиться. — Пойдем погуляем и отметим это!