Ответы пользователя по тегу Программирование
  • Исправить код Паскаль?

    @samanev
    Работаю в веб-студии Клондайк
    VAR
    x,y,a,b,c,d:real;
    begin
    writeln('Здравствуйте, вас приветствует калькулятор К-В. Можно использовать целые числа и десятичные дроби. Когда вы закончите работу, то просто закройте программу');
    while true do
    begin
    writeln('Чтобы вычислить корень или квадрат числа сначала введите число, потом нажмите 0');
    writeln('Введите первую часть выражения: первое слагаемое, уменьшаемое, первый множитель или числитель');
    readln(x);
    writeln('Введите вторую часть выражения: второе слагаемое, вычитаемое, второй множитель или заменатель');
    readln(y);
    if y=0 then
    begin
    a:=SQR(x);
    b:=SQRT(x);
    writeln('Квадрат числа ',a);
    writeln('Корень числа ',b);
    end
    else
    begin
    a:=x+y;
    b:=x-y;
    c:=x*y;
    d:=x/y;
    
    writeln('Сумма ',a);
    writeln('Вычитание ',b);
    writeln('Умножение ',c);
    writeln('Деление ',d);
    end;
    writeln('Спасибо за использование калькулятора К-В');
    end;
    end.
    Ответ написан
    Комментировать