Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Мила Медведева
0 / 0 / 0
Регистрация: 12.10.2015
Сообщений: 10
1

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные

15.10.2015, 17:19. Просмотров 821. Ответов 1
Метки нет (Все метки)

Даны четыре вещественных числа, возведите в третью степень большее из них, и в четвертую - остальные.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2015, 17:19
Ответы с готовыми решениями:

Даны четыре вещественных числа. Определить, сколько из них отрицательных
Даны четыре вещественных числа. Определить, сколько из них отрицательных(без...

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них
Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу...

Даны три числа. Возвести в квадрат те, значения которых неотрицательны, и в четвертую степень- отрицательные
Даны три действительных числа. Возвести в квадрат те из них, значения которых...

даны три числа, найти большее из них
даны три числа, найти большее из них

даны четыре целых числа.Определить сколько из них нечётные
даны четыре целых числа.Определить сколько из них нечётные.

1
Cyborg Drone
Модератор
5296 / 3174 / 2442
Регистрация: 17.08.2012
Сообщений: 10,188
18.10.2015, 17:57 2
Лучший ответ Сообщение было отмечено Мила Медведева как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x: array [1..4] of double;
    i, imax: integer;
begin
  imax := 1;
  for i := 1 to 4 do
    begin
      write('x', i, ' = ');
      readln(x[i]);
      if x[i] > x[imax] then imax := i
    end;
  writeln('Result:');
  for i := 1 to 4 do
    begin
      if i <> imax
        then x[i] := sqr(sqr(x[i]))
        else x[i] := x[i] * sqr(x[i]);
      writeln('x', i, ' = ', x[i])
    end;
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2015, 17:57

целые числа,найти большее из них
Народ прошу помочь мне написать ( решить) задачу! :a,b,c - целые ...

Дано четыре числа. Определить , сколько из них имеют знак минус
Привет всем! Я студент 1-го курса радиотехнической специальности , что не...

Даны четырехзначные целые числа. Найти все числа, где все четыре цифры, составляющие число, одинаковы
Всем доброго времени суток.Пожалуйста ,напишите в паскале следующие задачи: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru