Программа может выглядеть так:

program Func;
uses Crt;
var a,b: integer;
      rez, fa, fb: integer;
begin                       ;
ClrScr;
a:=4;
b:=-5;
fa:=3*sqr(a)+4*a-5;
fb:=3*sqr(b)+4*b-5;
Rez:=fa+fb;
WriteLn('f(4)=', fa);
WriteLn('f(5)=', fb);
WriteLn('f(4)+f(5)=', Rez);
ReadLn;
end.
                             ,

0 0

4 года назад

1. написать программу, производящее "неформатный" вывод разных значений 2. написать программу, производящее "форматный" вывод ра

Евгений245

В какой программной среде писать?
Pascal ABC?
Turbo Pascal?

0 0

4 года назад

Ввести 2 числа. Если оба числа равны 5.5, то выдать их на печать, иначе удвоить число не равное 5.5. Программу Паскаль пожалуйст

Artur1111

Var
    a, b: real;

begin
    readln(a, b);
    if a <> 5.5 then a := a * 2;
    if b <> 5.5 then b := b * 2;
    writeln(a, ' ', b );
end.

0 0

4 года назад