Program s123; Var x,y:real; Begin Writeln('F(x) =x²-3x+9 если x≤3, F(x)=(1)/(x²+6) если x>3'); Writeln('Введите значение переменной x'); Readln(x); If (x<3) or (x=3) Then y:=sqr(x)-3*x+9 Else y:=1/(sqr(x)+6); Writeln('F(x)=',y); End.
Горячие клавиши Инструменты: A — Аэpогpаф (AirBrush) В — Кисть (Brush) С — Рамка (Crop) E — Ластик (Eraser) F — Режим (окно/весь экpан с меню/весь экpан без меню) G — Гpадиент (Gradient) H — Рyка (Hand) I — Пипетка (Eyedropper) K — Заливка (Paint Bucket) L — Лассо (Lasso) М — Область (Marquee) N — Линия (Line) O — Тониpование (Toning Tools) P — Каpандаш (Pencil) Q — Быстpая маска (Quick Mask) R — Фокyс (Focus Tools) S — Штамп (Stamp) T — Палитpа контypы (Path) U — Палец (Smudge Tool) V — Пеpемещение (Move) W — Волшебная палочка (Magic Wand) Y — Текст (Text) Z — Масштаб (Zoom) X — Поменять местами фоновый и основной цвета D — Сбросить цвет/фон в черный и белый [ - Пpедyдыщая кисть ] — Следyющая кисть
Program n1; var x: integer; begin writeln('Введите число'); readln(x); if (x mod 10 = 5) or (x mod 10 = -5) then writeln('Число оканчивается на 5') else writeln('Число не оканчивается на 5'); end.
program p2; var x, y, sum: integer; begin writeln('введите число'); readln(x); if ((x >= 10) and (x <= 99)) or ((x <= -10) and (x >= -99)) then writeln('является двузначным') else writeln('не является двузначным'); y := abs(x); sum := 0; while (y <> 0) do begin; sum := sum + (y mod 10); y := y div 10; end; if sum = 8 then writeln('сумма цифр равна 8') else writeln('сумма цифр не равна 8'); end.
Var x,y:real;
Begin
Writeln('F(x) =x²-3x+9 если x≤3, F(x)=(1)/(x²+6) если x>3');
Writeln('Введите значение переменной x');
Readln(x);
If (x<3) or (x=3) Then y:=sqr(x)-3*x+9 Else y:=1/(sqr(x)+6);
Writeln('F(x)=',y);
End.