ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Даны 2 числа.Найти их сумму,если числа равны,и найти их произведение,если числа не равны.Написать блок схему и составить программу на Паскаль.
Даны 2 числа.Найти их сумму,если числа равны,и найти их произведение,если числа не равны.Написать блок схему и составить программу на Паскаль.
Answers & Comments
a, b: integer;
begin
readln(a, b);
if a = b then
writeln(a + b)
else
writeln(a * b);
end.
Verified answer
Program 2chisla;uses crt;
var a,b,c:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a=b then
begin
c:=a+b;
writeln('Сумма чисел :',c);
end;
else
Begin
c:=a*b;
writeln('Произведение чисел :',c);
end;
readkey;
end.