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

Question

Информатика

Альба

2 декабря, 03:43

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

+2

Ответы (1)

Знаете ответ?

Изольда · Answer 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;