Упражнения on Bes 180 Фигуристы получают две оценки: за технику и за артистизм. В це 58 даны оценки одного судьи выступлений различных фигурис одном соревновании.
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.
What time does Maxim get up? — В какое время Максим встает?
He gets up at seven o’clock. — Он встает в семь часов.
What time do you go to school? — Когда ты ходишь в школу?
1. I go to school at half past eight. — Я хожу в школу в половине девятого.
What time does Dasha have lunch? — В какое время Даша обедает?
2. Dasha/She has lunch at twelve o’clock. — Даша / Она обедает в двенадцать часов.
What time does Nikita go to bed? — В какое время Никита ложится спать?
3. Nikita/He goes to bed at ten o’clock. — Никита / Он ложится спать в десять часов.
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.