Var s, s1: string[20]; begin s1: =’karabas’; s: =copy (s1, 2, 6); s: =’b’ + s; insert(‘-‘, s, 5); writeln(s); end. запишите строку s, которая будет выведена на экран в результате выполнения следующей программы

bara-bas

 

//  решение должно иметь от 20 до 5000 символов

Const        x = 28.35; var       g : real; begin       write('введите кол-во граммов: ');       readln(g);       writeln(g: 0: 3, ' грамм =  ', g/x: 0: 3, ' унций.');       readln; end. 2: var        a, b, c : integer;         m : real; begin       write('введите сторону a: ');       readln(a);       write('введите сторону b: ');       readln(b);       write('введите сторону c: ');       readln(c);       m : = sqrt(2*sqr(b) + 2*sqr(c) - sqr(a))/2;       writeln('медиана к стороне a = ', m: 0: 3);       m : = sqrt(2*sqr(a) + 2*sqr(c) - sqr(b))/2;       writeln('медиана к стороне b = ', m: 0: 3);       m : = sqrt(2*sqr(a) + 2*sqr(b) - sqr(c))/2;       writeln('медиана к стороне с = ', m: 0: 3);       readln; end.

1.

var

a, b, s: real;

begin

s: =0;

writeln('введите величины: ');

readln(a,b);

s: =a*b;

write('площадь = ', s);

end.

2.

var

k, t, sum: real;

ck, ct: integer;

begin

sum: =0;

writeln('введите количество тетрадей: ');

readln(ct);

writeln('введите количество карандашей: ');

readln(ck);

writeln('укажите цену одной тетради: ');

readln(t);

writeln('укажите цену одного карандаша: ');

readln(k);

sum: =ct*t+ck*k;

writeln('суммарная стоимость покупки: ', sum);

end.