Написать программу вычисления стоимости некоторого количества (по весу) яблок. нижепредставлен рекомендуемый вид экрана во время работы программы (данные, введенныепользователем, выделены полужирным шрифтом вычисление стоимости покупки. введите исходные данные: цена одного килограмма яблок (руб.) = 8.5 вес яблок (кг) = 2.3 стоимость покупки: 19.55 руб написать на turbo pascal.

Program appl; var c,s,n: real; begin writeln('вычисление стоимости покупки.'); writeln('введите исходные данные: '); write('цена одного килограмма яблок (руб.) = '); readln(c); write('вес яблок (кг) = '); readln(n); s: =c*n; write('стоимость покупки: ',s,' руб'); end.

1) var     s: real;     n: longint; begin write('n = '); read(n); s: =0; for n: = 1 to n do       s: =s+n; writeln('s = ',s); end. 2) вариант первый: var     a: array[1..10000,1..10000] of shortint;     m,n,j,k: word; begin randomize; write('m = '); readln(m); write('n = '); readln(n); writeln('исходная матрица: '); for m: = 1 to m do       begin       k: =0;       for j: = 1 to n-1 do               begin               a[m,j]: =random(21)-10;               write(a[m,j]: 3,' ');               if a[m,j] < 0 then k: =k+1               end;       a[m,j]: =random(21)-10;       write(a[m,j]: 3);       if a[m,j] < 0 then k: =k+1;       writeln(', k = ',k)       end; end. вариант второй: uses crt; ///на всех версиях, кроме pascalabc.net эту процедуру следует удалить procedure window(x, y, w, h: integer); begin   system.console.windowleft: =x;   system.console.windowtop: =y;   system.console.windowwidth: =w;   system.console.windowheight: =h; end; var     a: array[1..13,1..13] of integer;     n,m,i,j,t,o,k: integer; begin randomize; textbackground(15); textcolor(0); repeat n: =random(13)+1; m: =random(13)+1; t: =3000 div (n*m); if frac(ln(n*m)/ln(10)) = 0 then o: =1+trunc(ln(n*m)/ln(10)) else o: =2+trunc(ln(n*m)/ln(10)); window(0,0,90,25); clrscr; for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(n*m*2+*m);               delay(t);               write(a[i,j]: o,' ')               end;       writeln;       end; textbackground(10); for i: = 1 to n do       begin       k: =0;       for j: = 1 to m do               begin               if a[i,j] < 0 then                     begin                     textbackground(14);                     gotoxy(j*(o+1)-o,i);                     write(a[i,j]: o,' ');                     textbackground(10);                     k: =k+1                     end               else                     begin                     gotoxy(j*(o+1)-o,i);                     write(a[i,j]: o,' ');                     end;               delay(t);               end;               textbackground(12);               gotoxy(j*(o+1),i);               write(', k = ',k);               textbackground(10);       end; textbackground(15); gotoxy(1,n+1); write('1 - повторить, 0 - выйти.'); until readkey = '0' end.

// pascalabc.net 3.2, сборка 1478 от 10.06.2017 // внимание! если программа не работает, обновите версию! №1 begin   var n: =readinteger('n=');   writeln('s=',n*(n+1) div 2) end. пример n= 15373 s=118172251 №2 begin   var m: =readinteger('количество строк в матрице: ');   var n: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('количество отрицательных элементов построчно: ');   a.rows.select(r-> r.where(x-> x< 0).count).println end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   88  43  64  50 -27  -9  48  55     1  40 -39 -99 -45 -54  17 -77   -33  99 -38 -19 -93  18 -19 -24   17    4 -36  90  98  69  68  35   -35  18  85  54 -74 -69  14 -62 количество отрицательных элементов построчно: 2 5 6 1 4