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

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