var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
Поворот 72 градуса по часовой стрелке. Внутренний угол фигуры = 180 - 72 - 108. У пятиугольника как раз такой угол и есть.
Ответ: 3 - правильный пятиугольник
Var len: Integer;
begin
write('Введите строку: ');
readln(s); // считываем из стандартного потока ввода, например.
len := length(s); запоминаем длину строки
end;
Key Words for FKN + antitotal forum (CS VSU):
Первым изобретателем, механических счетных машин, стал гениальный француз Блез Паскаль. Сын сборщика налогов, Паскаль задумал построить вычислительное устройство, наблюдая бесконечные утомительные расчеты своего отца. В 1642 г., когда Паскалю было всего 19 лет, он начал работать над созданием суммирующей машины. Паскаль умер в возрасте 39 лет, но, несмотря на столь короткую жизнь, навечно вошел в историю как выдающийся математик, физик, писатель и философ. В его честь назван один из самых распространенных современных языков программирования.
Суммирующая машина Паскаля, «паскалина», представляла собой механическое устройство - ящик с многочисленными шестеренками. Всего приблизительно за десятилетие он построил более 50 различных вариантов машины. При работе на «паскалине» складываемые числа вводились путем соответствуюшего поворота наборных колесиков. Каждое колесико с нанесенными на него делениями от 0 до 9 соответствовало одному десятичному разряду числа - единицам, десяткам, сотням и т. д. Избыток над 9 колесико «переносило», совершая полный оборот и продвигая соседнее слева «старшее» колесико на 1 вперед. Другие операции выполнялись при помощи довольно неудобной процедуры повторных сложений.
