Даны числа 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)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10