Question

Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100 , напечатать число и его квадрат Программа QBasic

Answer 1

CLS 

PRINT" Введите 10 чисел "  

FOR i=1 TO 10

INPUT  A

IF (A*A)<100 THEN PRINT A :PRINT "   ":  PRINT (A*A)

NEXT I

END