fkn+antitotal

Урок 9 Задача 1

Сдавать/выладывать решение не обязательно:
Есть код:

var a,b : integer;
begin
readln(a);
if (a > 2) then
writeln(a)
else
writeln(2);

readln();
end.
Если он отфроматирован неправильно - исправьте это, и объясните для себя почему нужно исправить именно так

Урок 11 Задача 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

program u11z11;
var a,b,i: integer;
begin
  i:=0;
  while (i <= 96) do
  begin
    i:=i + 4;
    write(i,' ');
  end;
 readln();
end.

Урок 8.2 Задача1 http://fkn.ktu10.com/?q=node/15696
Урок 8.2 Задача2 http://fkn.ktu10.com/?q=node/15697

Урок 9 Задача 1 Урок 9 Задача 1
Урок 9 Задача 2 Урок 9 Задача 2

Урок 12.2 Задача 3

У вас есть программа, использующая цикл while:

var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.
Объясните что делает эта программа (что будет выведно на экран и почему)
Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

Урок 12.2 Задача 2

Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:

1 5 9 13 17 21 25 29 33 37 41 45

program u12z2;
var i, a, b, c: integer;
begin
  b:= -3;
  for i:= 1 to 45 do
   begin
     c:=b + 4;
     b:= c ;
      if (c <= 45) then
     write(c,' ');
   end;

  readln();
end.           

Урок 12.2 Задача 1

Имеется программа:

var i: integer;
begin
for i:=5 to 34 do
write(i, ' ');

readln();
end.
Ответьте на вопросы/выполните задания

Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

Урок 12.1 Задача 7

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Вариант_1:

Урок 12.1 Задача 6

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

program u12z7;
var i : integer;

begin
  i:= 35;

    repeat
      if (i mod 2 = 0) and ((i mod 3 = 0) and (i mod 6 =0)) then
        write(i, ' ');
      i:=i+1;

    until (i >= 117);

  readln();
end.

Урок 12.1 Задача 5

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ).

program u12z5;
var a: char;
begin
repeat
  writeln('vvedite celoe chislo');
  readln(a);
    if (a <> '#') then
      writeln('&')
until (a = '#');
end.

Урок 12.1 Задача 2

Выведите на экран, все числа от 55 до 9236

program u12z2;
var i: integer;
begin
  i:= 55;
    repeat
      write(i, ' ');
      i:=i + 1;
    until (i > 9236);

  readln();
end.