Паскаль! Помогитее
5-9 класс
|
Даны три числа. Написать программу, в рузельтате выполнения которой числа удвоятся, если Х<=Y<=Z, и будуд заменены на их абсолютные велечины в прочих условиях
Var x,y,z:real
Begin
Write('введите x=');
Readln(x);
Write('введите у=');
Readln(у);
Write('введите z=');
Readln(z);
If (x<=y) and (y<=z) then begin
X:=2*x;
Y:=2*y;
Z:=2*z;
End
Else begin
X:=abs(x);
Y:=abs(y);
Z:=abs(z);
End;
Writeln('ответ:');
Writeln(x);
Writeln(y);
Writeln(z);
End.
Другие вопросы из категории
Барабан с палочками,Костёр на дровах,Картина,Сумка с письмами,Радио,Телефон (домашний),Теливизор,@ (почта "mail.ru),Радар?
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,
ПОМОГИТЕЕ
Простейшая программа на Паскале будет выглядеть следующим образом:
program upr;
begin
writeln ( ? ); {оператор вывода строки}
end.
Определи, какая фраза пропущена на месте вопросительного знака?
’Hello, World!’
“Lorem ipsum”
Just Another Perl Hacker
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!