<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b:integer;
Write('Введите границы диапазона: '); Read(a,b);
if b<a then Swap(a,b);
Range(a,b).Where(x->x mod 7=0).Println
end.
<u>Пример</u>Введите границы диапазона: -20 67
-14 -7 0 7 14 21 28 35 42 49 56 63
Ослеп, а уже выдает себя за колдуна
Умный человек быстро старится
Каждый глупец глуп на свой лад
Старый бамбук даст молодые побеги
Молодой ум что облачко на ветру
Никто не уйдет от справедливого воздаяния
Жалобы былинки не остановят тайфуна
Тиграм и оленям вместе не гулять
Лучше быть умным слугой, чем глупым хозяином
Голова большая, а глупая
Девять человек все равно что десяток
Когда много свах, вечером приходится ложиться спать одному
Стар, а все еще хочет в детский барабан бить
Когда змее хорошо, лягушке плохо
Делай коромысло себе по плечу
Плохой танцор говорит, что земля неровная
Можно избавиться от болезни, но от судьбы не избавишься
Когда ты здесь - тебя ругают, уйдешь - тебя жалеют
Малые ветры, собравшись воедино, образуют тайфун
Увидел, что мягко, - и копает
Где кончается ум, там начинается глупость
Пагода ветхая, да Будда в ней золотой
Сбежал из силка, а попал в капкан
И святые любят деньги
Может имелись в виду <span>счетно-перфорационные машины?
Если да, то такая машина была придумана в конце 19 века </span><span>Германом Холлеритом(Америка).
Эту машину можно сравнить с машиной Бэббиджа. Если в машине Бэббиджа перфокарты использовались для представления программы, то в этой - для хранения числовой информации. Эти машины делали сортировку, сортировку, вывод на печать числовых таблиц и перфорацию. Благодаря этой машине решались простые задачи статистической </span><span>обработки, бухгалтерского учета и так далее.</span>
Const n=50;
var B:array[1..n] of integer; i:byte;x:integer;
begin
x:=1;
for i:1 to n do
begin
B[i]:=x;
x:=x+3;
end;
end.
Var a, h: integer;
begin
write('Введите a, h: '); readln(a, h);
writeln('Площадь параллелограмма = ', a * h);
end.
