Регистрация
soloveva2506
29.06.2023 21:04
Информатика
Есть ответ 👍

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

167
396
Посмотреть ответы 2

Ответы на вопрос:

Dan1L1an
Dan1L1an
4,6(98 оценок)
Program z13; var a: integer; begin writeln('vvedite dannoe cislo='); readln(a); if a   mod 2=0 then writeln(sqrt(a)) else writeln(sqr(a)*a); readln; end.
вау1905
вау1905
4,6(66 оценок)

ваши ошибки:

1) объявление текстовых переменных и неиспользование их.

2) ненужный тип longint, зачем такой большой тип?

типа integer вполне достаточно (-32 768 … 32 767).

3) объявление абсолютно ненужной переменной z.

4) главная ошибка - это непонимание , и соответственно неправильно построенный алгоритм.

попробуйте это, самое оптимальное по времени, минимальное кол-во переменных. использован метод гаусса, можно было и арифм. прогрессию.

var

  n: integer;

  text: text;

begin

  assign(text, 'input.txt'); reset(text);

  readln(text, n); close(text);

   

  if (n > 10000) then exit;

   

  assign(text, 'output.txt'); rewrite(text);

  if n < 0 then writeln(text, + abs(n)) * (abs(n) / 2) - 1))

  else writeln(text, (1 + n) * (n / 2));

  close(text);

end.

Популярно: Информатика