Спаскалем abs. 1 дано пятизначное число. определить сумму второй и пятой цифры. 2 дано пятизначное число. определить сумму второй и четвёртой цифрой. 3 написать программу в которой подсчитывается количество чётных чисел среди трёх, введёных с клавиатуры

№1-2 var x, t, f, l, sum, sum2: integer; begin write('введите x: '); readln(x); if ( x < 10000 ) or ( x > 99999 ) then writeln('ошибка. число не пятизначное! ') else begin l : = x mod 10; t : = (x div 1000 mod 10); sum : = l + t; f : = (x div 10 mod 10); sum2 : = t + f; writeln('сумма второй и последней цифры: ', sum); writeln('сумма второй и четвертой цифры: ', sum2); end; end.№3var a, b, c, rez: integer; beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('введите третье число: '); readln(c); rez : = 0; if a mod 2 = 0 then inc(rez); if b mod 2 = 0 then inc(rez); if c mod 2 = 0 then inc(rez); writeln('количество четных чисел: ', rez); end.

№2. var a,b: integer; beginreadln(a); b: =a; a: = (a div 10) mod 10; b: = (b div 1000) mod 10; writeln(b+a); end.№1.var a,b: integer; beginreadln(a); b: =a; a: = a   mod 10; b: = (b div 1000) mod 10; writeln(b+a); end.

 

Начало » Конспекты школьника » kumir » Знакомимся с чертежником

Знакомимся с чертежником

Исполнитель Чертежник предназначен для построения рисунков на координатной плоскости. Чертежник имеет перо, которое можно подымать, опускать и перемещать.

При перемещении опущенного пера за ним остается след – отрезок от предыдущего положения до нового. При перемещении поднятого пера никакого следа не остается. В начальном положении перо Чертежника всегда поднято и находится в точке (0, 0).

Система команд исполнителя «Чертежник» включает 6 команд:

опустить перо

поднять перо

сместиться в точку (X, Y)

сместиться на вектор (dX, dY)

установить цвет (цвет)

надпись (ширина, текст)

Команда «опустить перо» переводит чертежника в режим перемещения с рисованием.

Команда «поднять перо» переводит чертежника в режим перемещения без рисования. Если перо уже было поднято, то команда просто игнорируется.

Команда «сместиться в точку (x, y)» перемещает перо в точку с координатами (x, y). Не зависимо от предыдущего положения Чертежник окажется в точке с координатами (x, y). Эту команду называют командой абсолютного смещения.

Команда «сместиться на вектор (dX, dY)» перемещает перо на dX вправо и dY вверх. Если текущие координаты были (x, y), то новое положение будет (x+dX, y+dY). Т.е. координаты отсчитываются не от начала координат, а относительно текущего положение пера. Эту команду называют командой относительного смещения.

Команда «установить цвет (цвет)» устанавливает цвет пера. Допустимые цвета: «черный», «белый», «красный», «оранжевый», «желтый», «зеленый», «голубой», «синий», «фиолетовый».

Команда «надпись (ширина, текст)» выводит на чертеж текст, начиная от текущей позиции пера. В конце выполнения команды перо находится на правой нижней границе текста (включая отступ после последнего символа). Ширина знакоместа измеряется в условных единицах чертежника. Это ширина буквы вместе с отступом после нее.

При использовании исполнителя Чертежник программа должна начинаться со строчки «использовать Чертежник».

Задача: Составим алгоритм рисования квадрата. После рисования вернем Чертежника в исходную позицию.

Объяснение: