Задание:
1. В двух пакетах есть рис. Вес первого пакета=m кг, а второго=n кг. Нужно определить общий вес пакетов и какой из них тяжелее. 2, Найдите суммыположительных и отрицательных чисел из заданных n чисел. Определите наибольшее из сумм по абсолютной величине 3, Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n. НУЖНО решить эти задачи, нарисовать к ним блок схемы и написать программы. ПОМОГИТЕ ПОЖАЛУЙСТА!
Решение:
var m,n: integer; Begin read (n,m); if n > m then writeln (m+n, n); else writeln (m+n, m); End. Во второй непонятно как задются эти числа var i,n: integer; Begin read (n); for i: =1 to n do writeln (i, i*i); End. Блок схемы мы не учили да и фигня эти схемы чесно говоря
Знаете другой ответ?