52 54 56 58 60
62 64 66 68 70
72 74 76 78 80
82 84 86 88 90
92 94 96 98 100
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
для имени Максим так как у него первая буква согласная вторая гласная и последняя согласная
// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.
Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2