Даны числа a и b вычислить сумму и утроенное произведение (информатика паскаль

ответ:

program n1;

var s,p,a,b: real;

begin

readln(a,b);

s: =a+b;

p: =3*(a+b);

writeln('сумма чисел а и b равна ', s);

writeln('утроенное произведение a и b равно ' ,p);

end.

объяснение:

после слов "равна" и "равно" обязателен !

просто попробуй в pascal abc проверить что учу я на информатике:

program n1;

uses graphabc;

var x,y: integer;

begin

setpenwidth(3);

line (100,300,300,300);

line(100,300,150,200);

setpenstyle(psdash);

line(150,200,350,200);

setpenstyle(pssolid);

line(350,200,300,300);

line(250,50,150,200);

line(250,50,100,300);

line(250,50,350,200);

line(250,50,300,300);

end.

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.