Name: "ab" + "ba" = квадрат натурального числа
Item: "ab" + "ba" = квадрат натурального числа
Author: Tilda

		Воскресенье, 05.01.2025
	Pascal 4 All

Главная | Регистрация | Вход

Приветствую Вас Гость | RSS

Меню сайта

Главная страница

О сайте

Файлы

Задачник

Форум

Гостевая книга

Обратная связь

Каталог сайтов

Вопрос/ответ

Доска объявлений

Категории каталога

Задачки циклы и условия [27]

Простые задачки, циклы, условия.

Наш опрос

Главная » Статьи » Простые » Задачки циклы и условия

"ab" + "ba" = квадрат натурального числа

Program DualSummSqrt;
Uses CRT;
Var a, b: Byte;
    r, t: Real;
Begin
ClrScr;
For a := 2 to 5 do
    Begin
    b := 11 - a;
    t := 11 * a + 11 * b;
    r := Sqrt(t);
    If (Frac(r) = 0) then
       Writeln(a,b,' + ',b,a,' = ',t:0:0,' = ',r:0:0,'^2');
    End;
ReadKey;
End.

Источник:

Категория: Задачки циклы и условия | Добавил: Seqular (28.09.2007) | Автор: Дмитрий