Помогите с паскалем ABC
10-11 класс
|
var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
Другие вопросы из категории
частота дискритизации и разряд?
1) все ответы верны
2) поиск и архивное хранение документов
3) комплексная автоматизация процессов разработки, согласования и распространения документов
f:= x*x*x*x; x:=x+1;writeln (f,x);
f:=x4; x:=x+1;writeln (f,x);
f:= x*x*x*x; x=x+0.1;writeln (f,x);
f:= x*x*x*x; x:=x+0.1; writeln (f,x);
2)сеть, объединяющая в себе локальные, региональные и корпоративные сети, соединенные между собой каналами передачи информации с высокой пропускной способностью называется...
3)минимальной единицей измерения количество информации является...
Читайте также
1. Написать программу нахождения среди чисел от 1 до 100 всех пар чисел, для которых их сумма равна их произведению)
2. Написать программу вычисления куба суммы всех четных чисел от 2 до 100
3. Каждая бактерия делится на две через три минуты. В начальный момент имеется одна бактерия. Написать программу, определяющую, сколько будет бактерий через N минут