Помогите очень нужно)
5-9 класс
|
Имеются переменые x,y,z для положительных чисел вывести удвоеное произведение для отрицательных в квадрат
Не совсем требования к программе понятны. Написал на ПаскальАВС.Нет с использованием функции
var x,y,z:integer;
function ex(x:integer):integer;
begin
if x>0 then result:=2*x
else result:=x*x;
end;
begin
write('Введите x, y, z: ');
readln(x,y,z);
x:=ex(x);
y:=ex(y);
z:=ex(z);
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.
Вариант без использования функции
Т.е. даны три числа и если положительное то вывести удвоеное произведение ,если отрицательно то в квадрат?
Другие вопросы из категории
ИНФОРМАТИКА 9 КЛАСС
Сообщение занимает 2 странице и содержит одну шестнадцатую Кб информации, на каждой странице записано 256 символов. Какова мощность использования алфавита?
Читайте также
.
а)ночь-?-?-?-?-?-день
б)рота-?-?-?-?-?-полк
в)бант-?-?-?-?-?-коса
г)бег-?-?-?-?-?-?-?-шаг
д)море-?-?-?-?-?-?-суша
е)миг-?-?-?-?-?-?-?-век
помогите очень нужно,учительница ужасно строгая ненавидит меня помогите!
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
В строке символов определить кол-во букв А.
Нужно составить программу на Паскале))
алгоритм.
измерить температуру
если температура выше 37 С,то
вызвать врача
пойти в школу
Несмотря на недомогание,школьник исправил этот алгоритм,добавив всего 2 строки.какие строки добавил школьник?