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

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

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

Похожие темы
Тема Раздел Автор Дата
Delphi Возвести в квадрат отрицательные числа и в третью степень – положительные
4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные ( число 0 не изменять) с поролем на прогу плз
Delphi для начинающих Deman222 07.04.2014 16:50
C# Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
C# для начинающих Gerasim1212 27.05.2013 14:00
QBasic Как возвести в квадрат отрицательные числа и в третью степень положительные
Народ кто знает помогите. Дали задачи в технаре ... не могу решить. Аш инересно стало. Если не трудно конечно же вот первая. На ветвление . 1. Даны 3 целых числа. Возвести в квадрат отрицательные числа и в третью степень положительные(число ноль не изменять Прочитайте правила и пропавшие...
QBasic Stanislav163 05.03.2013 12:51
Free Pascal 1. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять)
1. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
Free Pascal dmitriy12369 16.12.2012 17:31
Turbo Pascal Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите пожалуйста решить ету задачу))) И ету 28. Дан номер некоторого года (положительное целое число). Вывести число дней в этом году, учитывая, что обычный год...
Turbo Pascal Halelov_Sultik 25.12.2010 13:45
Опции темы


Текущее время: 15:27. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.