program a1; var c: integer; begin c = 100; writeln (c) end. ; :

program a2; var a: integer; b: real; begin a: = 100; b:= 20.5; writeln (a,b); end.

program a3; var c integer; begin c = 100; writeln (c); end. :

If a=b then a:=a+b else a:=a-b; ;

If a=b then a:=a+b else a:=a-b;

begin a: integer; program a1; var b: integer; b:= 21; writeln (b); b:=b/3; writeln (b); end.

program a1; var b: integer; begin b:= 21; writeln (b); b:=b/3; writeln (b); end.

a :=3; b := 4; if a>b then x := a * b else x := a ; 3

a :=4; b := 5; c := 3; if a>b then x := a + b else begin a := b + c; x := a – 3*b end; -7

a :=9; b := 8; c := 2; if (a>b) and (b>c) then x := 2 * a + b + c else x := a – b + c; 28

FOR k := 1 TO 4 do Write(k);

y := 0; FOR x := 1 TO 3 do y := y + 1; Writeln (y); 3

y := 0; FOR x := 1 TO 3 do begin y := y + 1; Writeln (y); end; 1 2 3

a :=4; b := 5; for i:=1 to 10 do if i mod 2=0 then writeln (i); Writeln (a);

НОД(12,16)=2 *2=

1.Разложить число на простые множители. Алгоритм нахождения НОД: 2.Найти общие множители. 3.Найти их произведение.

Вычитайте из большего числа меньшее, пока числа не сравняются, заменяя большее число разностью НОД(48,18)=6

Условие ДаНет Тело цикла Блок-схема цикла «Пока»

Общая схема записи цикла с предусловием while do begin end;

А=В ? Да В:=В-А Ввод А, В Вывод НОД Нет A>B ? Нет А:=А-В

1.Если заранее определено число повторений тела цикла, то используем цикл с параметром FOR. 2. Если заранее не определено число повторений, то используем цикл WHILE. Критерий выбора цикла:

1)Дед Мороз готовит для новогодней елки одинаковые подарки. Во все подарки он разложил 123 апельсина и 82 яблока. Сколько ребят получат подарки? Сколько апельсинов и сколько яблок было в каждом подарке? 2)Для поездки за город работникам фирмы было выделено несколько автобусов с одинаковым числом мест в каждом. В лес поехали 424 человека, а на озеро 477. Все мета в автобусе были заняты и ни одного человека не осталось без места. Сколько автобусов было выделено и сколько пассажиров было в каждом автобусе?