Предмет:
Другие предметыАвтор:
анонимvar x,y,z : real; // объявляем переменныеbegin writeln (\'Введите числа x и у\'); // выводим на экран текстовую строку readln(x,y); // считываем две переменные, введенные с клавиатуры if (x > y) then // если выполняется условие, то находим разность чисел z := x-y else z := sqrt( x + y); // если условие не выполняется, то находим квадратный корень (x+y) writeln(\'Ответ: \', round (z, 2)); // выводим на экран строку с ответом, округленным до 2-го знака.end.
Автор:
weirdowvwyДобавить свой ответ
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть