Створіть проект для розв’язування задачі: Перед початком повені рівень води у річці становив Н метрів. Під час повені кожну годину рівень води зростав на Р відсотків від рівня попередньої години. Яким буде рівень води через N годин після початку повені? Через скільки годин після початку повені рівень води буде не менше, ніж К метрів?Розмістіть на формі поля для введення початкових даних, написи із текстами, що будуть пояснювати призначення полів, і три кнопки.Установіть на першій кнопці напис Завдання 1, на другій – Завдання 2, на третій – Спочатку, у полів – порожній текст.Складіть обробник події Click для першої кнопки, виконання якого приведе до виведення у вікно повідомлення відповіді на перше завдання задачі.Виконайте проект і переконайтеся, що результати його роботи правильні.Складіть обробник події Click для другої кнопки, виконання якого приведе до знаходження відповіді на друге завдання задачі і виведення його в окремий напис.Виконайте проект і переконайтеся, що результати його роботи правильні.Складіть обробник події Click для третьої кнопки, виконання якого призведе до очищення тексту у полях та написі з відповіддю на друге завдання задачі.​

1) 111+101=1100

Разбор: производим сложение, начиная с младших разрядов

1+1=10, пишем 0, 1 переносим в старший разряд

1+0 = 1, добавляем перенесённую ранее единицу 1+1=0, пишем 0, 1 переносим в старший разряд

1+1+1=11

 

2) 207+4152=4361

7+2=11, пишем 1, 1 переносим в старший разряд

0+5+1=6

2+1=3

0+4=4

 

3) A12+69=A7B

2+9=В

1+6=7

А+0=А

 

4) 100111-10001=10110

Начинаем также в столбик с младшего разряда

1-1=0

1-0=1

1-0=1

0-0=0

10-1=1

 

5) 342-215=125

2-5 не получается, добавляем единицу из старшего разряда

12-5=5

3-1=2 (было 4, но единицу мы вычли в предыдущем действии)

3-2=1

 

6) A1B2-97C=9836

2-C не получается, берём единицу из старшего разряда

12-С=6

A-7=3 (было B, но одну единицу мы использовали ранее)

1-9 не получается, берём едиинцу из старшего разряда

11-9=8

из А ранее вычли единицу, поэтому получим не А, а 9.

 

Надеюсь, понятно :)

Program p1;
Const N=10;//подставишь нужное N
Var A:array[1..N] of integer;
summa,kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 2<>0 then
Begin
summa:=summa+A[i];
kolvo:=kolvo+1;
End;
Writeln('Среднее арифметическое = ',summa/kolvo);
End.

 

 

Program p2;
Const N=10;//подставишь нужное N
Var A:array[1..N] of integer;
kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 2=0 then
kolvo:=kolvo+1;
Writeln('Число чётных элементов = ',kolvo);
End.