Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Turbo Pascal
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 10.01.2011, 21:06   #1
noyan
Форумчанин
 
Аватар для noyan
 
Регистрация: 09.01.2011
Сообщений: 90
Репутация: 1 (1)
Возвести в квадрат отрицательные числа и в третью степень — положительные / Turbo Pascal

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
Старый 10.01.2011, 21:51   #2
Kirilllll
Форумчанин
 
Регистрация: 23.03.2010
Сообщений: 77
Репутация: 4 (6)
Возвести в квадрат отрицательные числа и в третью степень — положительные / Turbo Pascal

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var
  ch1, ch2, ch3: longint;
begin
  write('Введите три числа: ');
  readln(ch1, ch2, ch3);
  if (ch1>0) then
    begin
      ch1:= ch1*ch1*ch1;
    end
  else
    begin
      ch1:= ch1*ch1;
    end;
  if (ch2>0) then
    begin
      ch2:= ch2*ch2*ch2;
    end
  else
    begin
      ch2:= ch2*ch2;
    end;
  if (ch3>0) then
    begin
      ch3:= ch3*ch3*ch3;
    end
  else
    begin
      ch3:= ch3*ch3;
    end;
  writeln('1: ', ch1, ' 2: ', ch2, ' 3: ',ch3);
  readln;
  readln;
end.
А вообще можно было немножко своим мозгом подумать!
Другие темы раздела Форум программистов Turbo Pascal. Программирование на языке Turbo Pascal. Помощь студентам и школьникам в решении задач.
Из трех данных чисел выбрать наименьшее. 4. Из трех данных чисел выбрать наибольшее Turbo Pascal
Из трех данных чисел выбрать наименьшее. 4. Из трех данных чисел выбрать наибольшее.
Turbo Pascal Из трех данных чисел выбрать наименьшее и наибольшее
. Из трех данных чисел выбрать наименьшее и наибольшее. 6. Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y — большее.
Старый 10.01.2011, 21:51
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Delphi для начинающих Возвести в квадрат отрицательные числа и в третью степень – положительные
4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные ( число 0 не изменять) с поролем на прогу плз
Deman222
Free Pascal Даны три числа. Возвести в квадрат не отрицательные и в четвертую степень - отрицательные
1. Даны три действительных числа . Возвести в квадрат те из них чьи значения не отрицательны , и в четвертую степень отрицательные. 2. Выполните отделение корней уровнения и использованием графической оценки . Разработайте программу , выполняюшую уточнение корней методом дихотомии на найденом...
ksardasdemon
Turbo Pascal Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите пожалуйста решить ету задачу))) И ету 28. Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год...
Halelov_Sultik
Pascal (Паскаль) Даны три числа. Возвести в квадрат те, значения которых неотрицательны, и в четвертую степень- отрицательные
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень- отрицательные.
Пушистый колбас
Delphi для начинающих Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число 0 не изменять)
Даны 3 целых числа возвести в квадрат отрицательные числа ив третью степинь - положительные (число 0 не изменять)
Deman222
Опции темы

Текущее время: 20:09. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.