найти значение:2х, х> или =0
3x, x<0
программа должна выглядеть примерно так:
PROGRAM ...;
VAR ...:real:
begin
READ(..,.);
IF ...THEN
begin
WRITE(....);
end
ELSE
begin
WRITE(....);
end;
end.
нужно подставить все так чтобы решалась задача,указанная выше

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-07-29T11:54:13+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

PROGRAM zadacha;
VAR x, y : real;
Begin
 READ(x);
 IF x >=0 THEN
     begin
       y:= 2 * x;

       WRITE(y);
     end
  ELSE
     begin
       y:= 3 * x

       WRITE(y);
     end;
end.