Задание:
1. Составить программу вывода на экран квадрата числа, если число отрицательное, и куба если число положительное. 2. Составить программу вывода на экранчисел от 1 до 50. Программа на язеке Паскаля
Решение:
1.var a,b,c: integer; beginread (a); If a<0 thena: =a*aelsea: =a*a*a; writeln (a) end.2.var a,b,c: integer; BeginFor c: =1 to 50 dowrite (c,'); end.
Знаете другой ответ?