Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

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

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
10.01.2011, 21:06
AdAgent
Объявления
10.01.2011, 21:51   #2
Kirilllll
Форумчанин
4 / 6 / 0
Регистрация: 23.03.2010
Сообщений: 77
Возвести в квадрат отрицательные числа и в третью степень — положительные / 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.
А вообще можно было немножко своим мозгом подумать!
Другие темы раздела
Из трех данных чисел выбрать наименьшее. 4. Из трех данных чисел выбрать наибольшее Turbo Pascal
Из трех данных чисел выбрать наименьшее. 4. Из трех данных чисел выбрать наибольшее.
Turbo Pascal Из трех данных чисел выбрать наименьшее и наибольшее
. Из трех данных чисел выбрать наименьшее и наибольшее. 6. Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y — большее.
10.01.2011, 21:51
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа
Всем добрый день, помогите решить задачу с условием: Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа. Чтото у меня она не работает, по-моему и с уравнением я тоже напортачил) Program vozv; var mas: array of real; i:...
Turbo Pascal Gigazo1d 10.04.2014 14:11
Delphi Возвести в квадрат отрицательные числа и в третью степень – положительные
4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные ( число 0 не изменять) с поролем на прогу плз
Delphi для начинающих Deman222 07.04.2014 16:50
Turbo Pascal возвести в квадрат отрицательные числа,в куб положительные числа
Даны 3 целые числа,возвести в квадрат отрицательные числа,в куб положительные числа.Результат вывести на экран
Turbo Pascal gangsterkot 30.09.2013 14:20
QBasic Как возвести в квадрат отрицательные числа и в третью степень положительные
Народ кто знает помогите. Дали задачи в технаре ... не могу решить. Аш инересно стало. Если не трудно конечно же вот первая. На ветвление . 1. Даны 3 целых числа. Возвести в квадрат отрицательные числа и в третью степень положительные(число ноль не изменять Прочитайте правила и пропавшие...
QBasic Stanislav163 05.03.2013 12:51
Turbo Pascal Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите пожалуйста решить ету задачу))) И ету 28. Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год...
Turbo Pascal Halelov_Sultik 25.12.2010 13:45
Опции темы

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

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