Даны 2 целых числа AиВ написать программку выводящую на экран значения

Даны 2 целых числа AиВ написать программку выводящую на экран значения квадрата целых чисел от А до В включительно

Задать свой вопрос
1 ответ
Var A, B, S1, S2: integer;
Begin
A := StrToInt(Edit1. Text) ;
B := StrToInt(Edit2. Text) ;
S1 := sqr(A) ;
S2 := sqr(B) ;
Label1.Caption := IntToStr(S1) ;
Label2.Caption := IntToStr(S2) ;
End;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт