fkn+antitotal

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

Выведите на экран, все четные числа от 35 до 64.

program U10Z1;
var i:integer;
begin
  for i:=35 to 64 do
    if((i mod 2)=0)then
      write(i,' ');
  readln();
end.              

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

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

Пользователь вводит четыре числа, найдите из них максимальное.

17 февраля состоялась встреча участников воронежского телегам-чата https://t.me/php_vrn, на которой Александр Макаров рассказал о готовящемся релизе третьей версии знаменитого php-фреймворка Yii.

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

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

*С использованием логической операции and.
*С вложенными блоками (без and).
*Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

При решении задачи 16 урок 13.1

Пользователь вводит целое положительное числоN, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

[О том как надо читайте тут]

Рассмотрим ошибочные примеры, поясним почему они неправильны и приведем правильные варианты.

Пример №1

Исходный код (см. оригинал):

begin
  readln(b); 
    if(a>b)then
  writeln(12);
    readln();

Разберем недочеты и исправим по шагам:

Урок 9 задача 4

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

program U9Z4;
var a,b,c: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  writeln('vedite chislo');
  readln(c);
  if (a>17)and(b>17)and(c>7)then
    writeln('yes')
  else
    writeln('no');

  readln();
end.                   

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

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

program U9Z1;
var a,b: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  if(a>b)then
    writeln(12);
  readln();
end.         

Урок 9 задача 5

Пользователь вводит два числа, найдите из них максимальное.

program U9Z5;
var a,b: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  if a>b then
    writeln('Bolshe pervoe chislo ', a)
  else
    writeln('Bolshe vtoroe chislo ', b);

  readln();
end.