Классная работа 29.04.2016

Цикл с предусловием:
var
i,n:integer;
begin
  writeln('Деление на 2');
  readln(n);
  i:=1;
  While i<=n do
  if i mod 2 = 0 then
  begin
  writeln(i);
  i:=i+1;
  end;
  readln;
  end.
Цикл с постусловием:
var
i,n:integer;
begin
  writeln('Деление на 2');
  readln(n);
  i:=1;
  repeat
  i:=i+1;
  writeln(i);
  until i<>n;
  readln;
  end.
Цикл со счетчиком:
Var
I,n:integer;
Begin
Writeln('Деление на два');
Readln(n);
I:=1;
For i:=1 to n div 2 do
Writeln(i*2);
Readln;
End.

Домашнее задание №19 на 29.04.2016

var
i,n:integer;
begin
writeln('Введите n');
readln(n);
i:=1;
repeat
i:=i+1;
writeln(I);
until i>10;
end.

Домашнее задание №18 на 12.04.2016

VAR
 S,a,b,c:integer;
begin
  writeln('Найдем произведение трех чисел');
  writeln('Введите числа:');
  readln(a);
  readln(b);
  readln(c);
  S:=a*b*c;
  writeln('Ответ =',S);
  readln;
end.

Вывод:
Найдем произведение трех чисел
Введите числа:
2
3
6
Ответ =36