Составить блок-схемы и программы для следующих : 1. запросить ввод чисел a и b с клавиатуры. найти сумму чисел s, произведение чисел m. вывести на экран результаты вычислений. 2. запросить ввод чисел m и n с клавиатуры. сравнить числа (проверить на выполнение условие m> n). вывести на экран текст «большее число: » и соответствующее значение.
Write ('Введите А и В, через пробел: '); Readln (A,B); S := A + B; M := A * B;
Writeln ('S = ', S); Write ('M = ', M);
End.
№2.
Program v1; Var S,M,A,B: integer; Begin
Write ('Введите А и В, через пробел: '); Readln (A,B); if (A > B) then Write ('Число ',A,' больше числа ',B) else Write ('Число ',B,' больше числа ',a)
End.