СРОЧНО.
Составить блок-схемы и программы для следующих задач:
Задача 1.
Запросить ввод чисел A и B с клавиатуры. Найти сумму чисел S, произведение чисел M. Вывести на экран результаты вычислений.
Задача 2.
Запросить ввод чисел M и N с клавиатуры. Сравнить числа (проверить на выполнение условие M>N). Вывести на экран текст «Большее число:» и соответствующее значение.
Составить блок-схемы и программы для следующих задач:
Задача 1.
Запросить ввод чисел A и B с клавиатуры. Найти сумму чисел S, произведение чисел M. Вывести на экран результаты вычислений.
Задача 2.
Запросить ввод чисел M и N с клавиатуры. Сравнить числа (проверить на выполнение условие M>N). Вывести на экран текст «Большее число:» и соответствующее значение.
More Questions From This User See All
Answers & Comments
Program v1; Var S,M,A,B: integer; Begin
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.