СРОЧНО.
Составить блок-схемы и программы для следующих задач:
Задача 1.
Запросить ввод чисел A и B с клавиатуры. Найти сумму чисел S, произведение чисел M. Вывести на экран результаты вычислений.
Задача 2.
Запросить ввод чисел M и N с клавиатуры. Сравнить числа (проверить на выполнение условие M>N). Вывести на экран текст «Большее число:» и соответствующее значение.
XOOTO1:
Задача 1, произведение чисел М, имеется ввиду, что нужно умножить на М (где М вводится с клавиатуры?)
Ответы
Ответ дал:
0
№1. Блок схема только к 1 заданию!!!!!!!!!!!!!!!!!!!!!!!!
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.
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.
Приложения:
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад