Дано четыре целых числа. Возвести в квадрат те из них, значения которых неотрицательны, и...

0 голосов
116 просмотров

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

Входные данные: с клвиатуры вводится 4 целых числа

Выходные данные: необходимо вывести на экран преобразованные числа в той же последовательности

Пример входных и выходных данных

№ теста Входные данные Выходные данные
1 3 5 -2 -4 9 25 16 256


Информатика (34 баллов) | 116 просмотров
0

Дана последовательность чисел. Найти в ней наименьшее число.Входные данные.Задано сначала число N (количество чисел в последовательности), а затемN чисел.Выходные данные.Выведите наименьшее число.Пример входного файла74 2 5 -1 4 6 2Пример выходного файла-1

0

Дано натуральное число N (N<=109). Определить порядковый номер его максимальной цифры, считая от конца числа (если таких цифр несколько, то вывести номер первой встретившейся)Пример входных и выходных данных№ теста Входные данные Выходные данные 1 45545 1 2 100 3

0

Дано четырехзначное число. Написать программу, которая выводит на экран число, образованное при перестановке первой и второй, третьей и четвертой цифр заданного числа(никакие поясняющие записи в программе делать не нужно! библиотеку conio.h и команду getch() перед отправкой файла необходимо удалить!)Пример входных и выходных данных№ теста Входные данные Выходные данные 1 4561 5416

0

помогите пожалуйста, в долгу не останусь

Дан 1 ответ
0 голосов
Правильный ответ

Program n1;
var a,b,c,d: integer;
begin
readln(a,b,c,d);
if a>0 then a:=a*a
else a:=a*a*a*a;
if b>0 then b:=b*b
else b:=b*b*b*b;
if c>0 then c:=c*c
else c:=c*c*c*c;
if d>0 then d:=d*d
else d:=d*d*d*d;
writeln(a,' ',b,' ',c,' ',d);
end.

(149k баллов)