Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
noyan
Форумчанин
1 / 1 / 0
Регистрация: 09.01.2011
Сообщений: 90
10.01.2011, 21:06     Возвести в квадрат отрицательные числа и в третью степень — положительные
  #1
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
AdAgent
Объявления
10.01.2011, 21:06
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2011, 21:06

Посмотрите здесь:

Turbo Pascal Возвести в квадрат отрицательные числа и в третью степень

Turbo Pascal Возвести четные отрицательные элементы в третью степень, а нечетные во вторую

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

Turbo Pascal Все отрицательные числа массива возвести в квадрат

Turbo Pascal Массив. Возвести в квадрат все нечетные отрицательные, а положительные четные заменить на единицу

Turbo Pascal Операторы цикла- задача. Возвести в третью степень числа от 1 до 10

Turbo Pascal Массив. Возвести в квадрат все нечетные отрицательные числа, а положительные четные заменить на единицу

Turbo Pascal возвести в квадрат отрицательные числа,в куб положительные числа

Turbo Pascal Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа

Turbo Pascal Из трёх введённых чисел возвести в квадрат положительные, а отрицательные оставить без изменения

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.
А вообще можно было немножко своим мозгом подумать!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

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