Информатика. Программирование линейных алгоритмов. ​

program n_5;
var a, b, c: integer; ans: boolean;
begin
write ('Введите значение а, b, d1, d2>>');
readln (a, b, d1, d2);
ans:=(a<>b) and (d1=d2);
writeln ('Этот четырехугольник является прямоугольником – ' , ans)
end.

При каких исходных данных высказывание « Этот четырехугольник является прямоугольником» будет:
а) истинным;
б) ложным?

Жили – были в лесу: Заяц, Лиса, Волк и Медведь. Как-то раз, весной, после зимней спячки встал медведь и говорит: «Я опять выспаться не успел». Лесные жители давай над ним смеяться. Медведю это не понравилось, и он ушел. Стал он придумывать, как бы им отомстить. Ходил он, ходил, думал, думал и придумал. Зайца он решил испугать, когда он в школу пойдёт, чтобы забыл он туда дорогу. У Лисы своровал деньги, чтобы она не ходила по магазинам, не модничала, и не зазнавалось. А Волка  решил подкараулить, поймать и посадить в клетку.

некоторое время. И вот идёт Заяц, а навстречу ему Лиса. Спрашивает Лиса у него: «Ты что такой грустный». А он ей отвечает: «Да меня Медведь пугает, и теперь я не могу в школу ходить», А Лиса говорит: «И  у меня неприятность». Заяц спрашивает: «Что случилась?». А она ему: «У меня деньги пропали». Заяц говорит Лисе: «Может это Медведь украл?». Они подумали, почему  не видать Волка. Лиса: «Может он заболел». Заяц: «Ну,  пойдём, сходим к нему, посмотрим, что он делает». И вот они пришли, стучат в дверь, стучат, а им никто не открывает. Тогда они стали переживать и пошли на поиски. Но Волка было не слыхать.

 Решили они сходить к Мудрой Сове. Всё ей рассказали, какие у них неприятности – что натворил Медведь. Мудрая Сова решила вызвать Медведя на лесной совет и убедить его, что он не прав в своих поступка. Вот вызвали Медведя на лесной совет. И стали убеждать его в том, что у каждого есть свои права. Каждый имеет право на образование, поэтому Заяц должен учиться. Каждый имеет право на свободное передвижение, на пользование денежными единицами, а также на право свободного выбора и на личную собственность. Каждый имеет право на свободу, на личную неприкосновенность, а самое главное право на жизнь. Медведю рассказали много всяких прав и убедили его в том, что никто не должен нарушать эти права.  Медведь подумал и решил, что он поступил не правильно и не красиво. Решил он исправить свои ошибки: пришёл к Лисе и отдал деньги, Зайца больше не стал пугать, Волка выпустил на волю. Лесные жители извинились перед Медведем за то, что они над ним смеялись. Медведь тоже извинился за свои поступки.

 Стали они жить дружно и не ссориться. Потому что  каждый знал свои права и  их не нарушал. Так если стал мир и покой в лесу, то, как нам, людям, не знать свои права и обязанности, и их не выполнять? Стыдно!

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.