uses CRT;
VAR
a, b, S: Longint;
Code: Integer;
BEGIN
{Опять два способа: через строку и через MOD}
Write('Введите значение площади (целое число): ');
repeat
{$I-} ReadLn(S); {$I+}
(* {$I-} означает "отключить контроль операций ввода/вывода"
При этом при ошибке не происходит аварийного завершения
работы программы, но код оперции генерируется.
{$I+} - включить контроль. Это нужно всегда иметь включенным.
Вывод на диск ... - это тоже операции ввода/вывода *)
code := IOResult; {Узнаем код операции}
if (code <> 0) or (S < 2) then
Write('Ошибка ввода. Повторите');
until code = 0; {О кодах достаточно знать одно - 0 = хорошо}
code := 0; {Это будет число прямоугольников, чтобы, если нет,
то вывести сообщение об этом}
for a := 1 to 20 do
for b := 1 to 20 do
if a*b = S then begin
WriteLn(a,' * ',b,' = ',S);
inc(code)
end;
if code = 0 then WriteLn('Таких прямоугольнков нет');
END.
Похожие записи/страницы:
- Найти сумму нечетных делителей натурального числа - Pascal(Паскаль)
- Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b, а площадь равна S(a и b…
- Дано натуральное число n (n
- 1)дано натуральное число, удалить все цифры А (А вводится с клавиатуры)2)найти все числа от 1 до 200,у которых…
- Программа табулирования функции одной переменной F(x, y), считая у параметром, значение которого задается…
- Включить заданное число D в массив A(N), упорядоченный по возрастанию, с сохранением упорядоченности - Pascal(Паскаль)
- В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму всех элементов, расположенных между…
- Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и…