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

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

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа
Всем добрый день, помогите решить задачу с условием: Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа. Чтото у меня она не...
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
C# Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
C# для начинающих Gerasim1212 27.05.2013 14:00
QBasic Как возвести в квадрат отрицательные числа и в третью степень положительные
Народ кто знает помогите. Дали задачи в технаре ... не могу решить. Аш инересно стало. Если не трудно конечно же вот первая. На ветвление . 1. Даны 3 целых числа. Возвести в квадрат...
QBasic Stanislav163 05.03.2013 12:51
Turbo Pascal Массив. Возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу
В массиве A(n), состсящим из целых чисел, возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу.
Turbo Pascal Viktor91 15.05.2012 12:26
Turbo Pascal Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные.
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень – отрицательные.
Turbo Pascal demihs 12.06.2011 23:47
Turbo Pascal Возвести в квадрат отрицательные числа и в третью степень
13. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). помогите пожалуйста решить ету задачу))) И ету 28. Дан номер некоторого...
Turbo Pascal Halelov_Sultik 25.12.2010 13:45
Опции темы

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

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