Задать вопрос
19 сентября, 09:38

Ввести с клавиатуры знак арифметической операции (либо + либо - либо * либо / (деление) и. два числа. Вывести на экран результат. При вводе знака операции # выход из программы. 6

+1
Ответы (1)
  1. 19 сентября, 12:31
    0
    uses crt;

    var a, b, s:real; z:char;

    begin

    write ('Vvedite A = ') ;

    readln (a) ;

    write (' + - / * : ') ;

    readln (z) ;

    write ('Vvedite B = ') ;

    readln (b) ;

    case z of

    '+': begin s:=a+b; writeln (a,' + ', b,' = ', s) ; end;

    '-': begin s:=a-b; writeln (a,' - ', b,' = ', s) ; end;

    '*': begin s:=a*b; writeln (a,' * ', b,' = ', s) ; end;

    '/': begin s:=a/b; writeln (a,' / ', b,' = ', s) ; end;

    else

    writeln ('error: incorrect operation symbol!') ;

    end;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ввести с клавиатуры знак арифметической операции (либо + либо - либо * либо / (деление) и. два числа. Вывести на экран результат. При вводе ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы