Ввести число, вывести результат, согласно выбору пользователя

@Mandarink-a · Регистрация: 13.02.2014

Author24 — интернет-сервис помощи студентам

Ввести число. По выбору пользователя добавить в него его половину, найти его квадрат или квадратный корень.

@ildwine · 22.02.2014, 22:14

Pascal

var
  q, a : integer;
  b : real;
begin
  write('введите число: ');
  readln(a);
  repeat
    writeln('выберите действие:');
    writeln('1 - добавить половину к числу');
    writeln('2 - найти квадрат');
    writeln('3 - вычислить корень');
    writeln('0 - выход');
    readln(q);
    case q of
      1 : begin
        b := a + a / 2;
        writeln(b:0:3)
      end;
      2 : begin
        b := sqr(a);
        writeln(b:0:0)
      end;
      3 : begin
        b := sqrt(a);
        writeln(b:0:3)
      end
    end
  until q = 0
end.

@Mandarink-a 0 / 0 / 0 Регистрация: 13.02.2014 Сообщений: 31
		1
	Ввести число, вывести результат, согласно выбору пользователя 22.02.2014, 22:09. Показов 1816. Ответов 1 Метки нет (Все метки) Ввести число. По выбору пользователя добавить в него его половину, найти его квадрат или квадратный корень. 0

	22.02.2014, 22:14

Ввести число, вывести результат, согласно выбору пользователя

Решение