Составить программы в qbasik что бы найти кратное 5.
вычислить сумму квадратов всех целых чисел от 1 до n/
даны два числа, меньшее из них замените квадратом, а большее умножте на 10.

PowerPoint тоже для презентаций

Ты не правильно оформил код вот правильный ответ, НО ЭТО РАБОТАЕТ ТОЛЬКО ЕСЛИ ТЕБЕ НАДО НАЙТИ ДВУХЗНАЧНЫЕ ЧИСЛА ИЗ ТРЁХ ВВЕДЁННЫХ   
program qwe;var a, b, c : LongInt;beginread (a,b,c);if a div 100 = 0 then write (a,);if b div 100 = 0 then write (b,);if c div 100 = 0 then write (c,);end.

Вроде бы 1000+1000+1000+100+1000+10+1000+1+10