fkn+antitotal

Задача 8 Урок 10.1:

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

Решение:

var i:integer;
begin
  for i:=35 to 117 do
    begin
      if ((i mod 3) =0) then
        writeln(i)
      else if (i>=45) and (i<=99) and ((i mod 2) =1) then
        writeln(i);
    end;
  readln();
end.  

Задача 7 Урок 10.1:

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

Решение:

Задача 8 Урок 9:

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.

урок 12.1

Сдавать решение не обязательно:
Исправьте форматирование кода:

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f < 25  then
    begin
      repeat
      if f mod 23 = 0 then
       begin
          f := f - 1;
          writeln(f);
       end else
      f := f - 2;
        until (f < 1);
    end
  else
   writeln('ошибка');
 
    writeln('Конец!');
  readln();
end.

решение

урок 12.1

Сдавать решение не обязательно:
Исправьте форматирование кода:

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
   if a='#' then break
     else
     writeln ('&');
  until (a='#');
    writeln('Конец');
end.

решение

Задача 7 Урок 9:

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var a,b: integer;
begin
  writeln ('Vvedite a,b');
  readln(a,b);
  if (a>b) then
    writeln(a)
  else
    writeln(b);
  readln();
end.

Задача 6 Урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var A, B, C: integer;
begin
  A:=5;
  B:=10;
  C:=4;
  if (A>17) and (B>17) and (C>7) then
    writeln('YES')
  else
    writeln('NO');
  readln();
end.   

Задача 5 Урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

var A, B, C: integer;
begin
    A:=5;
    B:=10;
    C:=4;
    if (A>B) and (A<C) or (A<B) and (A>C)then
      writeln('YES')
    else
      writeln('NO');
    readln();
end.    

Задача 4 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a, b: integer;
begin
  a:=5;
  b:=10;
  if (a>b) then
    writeln('12')
  else
    writeln('888');
  readln();
end.        

Задача 3 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a, b: integer;
begin
  a:=11;
  b:=10;
  if (a>b) then
    writeln('12');
  readln();
end.