1. Відкрийте середовище розробки Lazarus і створіть новий проект. 2. Розмістіть на формі елементи керування для розв’язування задачі:
Відомі довжини сторін двох прямокутників. Обчислити площі прямокутників і
порівняти їх. Визначити, чи є прямокутники квадратами. З’ясувати, чи вміститься
один прямокутник у середину другого. Повідомити отримані результати.
У проекті:
1) складіть обробник події OnClick першої кнопки для обчислення площ
прямокутників і виведення повідомлення про те, у якого прямокутника
площа більша;
2) складіть обробник події OnClick другої кнопки, виконання якого
залежно від установлених прапорців приведе до визначення того, чи є
відповідний прямокутник квадратом;
3) складіть обробник події OnClick третьої кнопки, виконання якого
приведе до визначення, чи вміститься перший прямокутник усередину
другого або другий прямокутник усередину першого залежно від вибраного
перемикача;
4) виконайте складені процедури і переконайтеся, що результати їхньої
роботи правильні.
3. Створіть у власній папці папку Практична 13 і збережіть у ній проект.
//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.
Все слова/анаграммы, которые можно составить из слова "сканер"
Из "сканер" можно составить 58 слов из 2,3,4,5 букв.
Слова из 2 букв, составленные из комбинации "сканер" (12 слов):
ан ар ас ер ка кн кр на не нс ре се
Слова из 3 букв, составленные из комбинации "сканер" (22 слова):
акр аре арк аск ера кар кеа кен кер кнр нар нас нес рак рен рнк сак сан сен сер сна сне
Слова из 4 букв, составленные из комбинации "сканер" (13 слов):
акне енка каре керн крае кран крен раек река саек саке сена сера
Слова из 5 букв, составленные из комбинации "сканер" (11 слов):
аксен анкер аскер кенар нарек насек нерка серка серна скарн скена