Разработайте программу для определения количества помидоров - Pascal

Формулировка задачи:

х родственников собрали помидоры, поровну, по дороге потеряли часть помидоров, принесли вдвое меньше, чем собрали . Разработайте программу для определения количества помидоров, наберите текст программ в среде турбо паскаль и проверьте правильность работы. Например родственников х = 5, количество помидоров полученных = 20

Решение задачи: «Разработайте программу для определения количества помидоров»

Листинг программы

var
x,a:integer;
begin
readln(x);
a:=0;
while x*(x-1)*2=a*x do
inc(a);
writeln (x*(x-1));
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются две переменные: x и a типа integer.
С помощью функции readln(x) считывается значение переменной x с клавиатуры.
Переменная a инициализируется значением 0.
Запускается цикл while, условием которого является равенство x(x-1)2 и a*x.
В цикле значение переменной x умножается на само себя, а затем на 2.
Значение переменной a увеличивается на единицу.
После выхода из цикла выводится значение выражения x*(x-1). Таким образом, данный код позволяет определить количество помидоров, которое можно получить из заданного числа помидоров, используя математические операции.