Цикл с предусловием

1. Цикл с предусловием.

2.

Повторите как работает цикл с предусловием:

3.

WHILE условие DO тело цикла;
Правило : пока условие верно выполнять
тело цикла

4.

1. Определите значение переменной S
после выполнения программы:
var s, n: integer;
begin
s:=0; n:=1;
while n<=5 do begin
write(n, ’ ');
s:=s+n;
n:=n+1;
end;
writeln(s);
end.

5.

2. Определите значение переменной S
после выполнения программы:
var s, n: integer;
begin
s:=0; n:=0;
while n<=10 do begin
write(n, ’ ');
s:=s+n;
n:=n+2;
end;
writeln(s);
end.

6.

3. Определите значение переменной S
после выполнения программы:
var s, n: integer;
begin
s:=0; n:=12
while n<20 do begin
write(n, ’ ');
s:=s+n;
n:=n+4;
end;
writeln(s);
end.

7.

4. Определите результат выполнения
программы:
var n: integer;
begin
n:=0
while n<4 do begin
write(’Паскаль ');
n:=n+1;
end;
end.

8. Цикл с параметром

Правило:
для каждого значения
параметра, начиная
от НЗ до КЗ с шагом 1
выполнять группу
операций.
FOR ПАР:=НЗ TO КЗ DO оператор;

9.

FOR ПАР:=НЗ TO КЗ DO
begin
операторы;
end;

10. Задача 1:

Определить сумму и
количество четных
натуральных трехзначных
чисел, кратных 6
(составить программу)

11.

uses crt;
var k, i,s: integer;
begin
k:=0; s:=0;
for i:=100 to 999 do
if (i mod 2 =0) and (i mod 6 =0)
then begin s:=s+i; k:=k+1; end;
writeln (s,’ ‘,k);
end.

12. Задача 2:

Определить сумму и количество
натуральных трехзначных чисел,
оканчивающихся на цифру 3
(составить программу)