Д/З надо в паскале! 1. Получить таблицу результатов температуру по Цельсию от 0 до 25 градусов и их эквивалентов по шкале Фаренгейта, используя для перевода формулу Тf = 9*Tc/5+32. Примерно так: Цельсия | Фаренгейт 0 | 32 1 | 33.8 2 3 и т.д. 2. Найти сумму N произвольных чисел, вводимых с клавиатуры, пока не введёте ноль. 3. Даны действительное число a, натуральное число n. Вычислить: a(a+1.a+n-1). 4. Банк начисляет на вклады 5% каждый месяц(т.е. каждый месяц вклад увеличивается на 5% без участия вкладчика). Напечатать таблицу увеличения суммы вклада по месяцам на год. Сумма вклада вводится с клавиатуры.

ответ: 31

Обратите внимание на объяснение!

Объяснение:

У вас была неверно написан фрагмент программы, ниже исправил на правильную версию

var i, s: integer;

begin

s:=10;

for i:=10 to 11 do

s:=s+i;

write(s);

end.

Шаги программы:

1. Первый раз в цикле i равняется 10, поэтому мы к 10 прибавляем 10, получаем 20. Второй раз в цикле i равняется 11, поэтому уже к новому s (20) мы прибавляем 11, получаем 31.

2. На экран выводится результат действий, а именно 31

Если вас интересует переменная k, то вы можете поменять i на k, но привычнее использовать i

uses crt;

const nmax=20;

type matr=array [1..nmax,1..nmax] of integer;

    mas=array [1..nmax] of integer;

var a: matr;

   a1,a2,a3,a4: mas;

   n,m: byte;

   

procedure Vvod (var z: matr; var ri,rj: byte);

var i,j: byte;

begin

repeat

write('Kol-vo strok, ne menee 4, ne bolee ',nmax,', n='); readln(ri);

until ri in [4..nmax];

repeat

write('Kol-vo stolbzov, ne bolee ',nmax,', n='); readln(rj);

until rj in [1..nmax];

writeln('Vvedite elementy matrizy:');

for i:=1 to ri do

   for j:=1 to rj do

       begin

       write('a[',i,',',j,']='); readln(z[i,j]);

       end;

end;

 

procedure Vivod (z: matr; ri,rj: byte);

var i,j: byte;

begin

writeln('Ischodnaja matriza');

for i:=1 to ri do

   begin

   for j:=1 to rj do

       write(z[i,j]:4);

   writeln;

   end;

end;

 

procedure Vivod1M (c: char; z: mas; rj: byte);

var j: byte;

begin

writeln('Massiv ',c);

for j:=1 to rj do

   write(z[j]:4);

writeln;

end;

 

procedure MakeArray (ns: byte; x: matr; var y: mas; rj: byte);

var j: byte;

begin

for j:=1 to rj do

   y[j]:=x[ns,j];

end;

 

function Jmin (z: mas; rj: byte): byte;

var j,jm: byte;

begin

jm:=1;

for j:=1 to rj do

   if z[j]<z[jm] then jm:=j;

Jmin:=jm;

end;

 

procedure Zamena (var z: mas; rj: byte);

var j: byte; g: integer;

begin

g:=z[Jmin(z,rj)];

if Jmin(z,rj)<rj then

  for j:=Jmin(z,rj)+1 to rj do

      z[j]:=g;

end;

 

begin

Vvod (a,n,m);

clrscr;

Vivod (a,n,m);

MakeArray (1,a,a1,m);

MakeArray (2,a,a2,m);

MakeArray (3,a,a3,m);

MakeArray (4,a,a4,m);

writeln('Massivy do preobrazovania');

Vivod1M ('1',a1,m);

Vivod1M ('2',a2,m);

Vivod1M ('3',a3,m);

Vivod1M ('4',a4,m);

Zamena (a1,m);

Zamena (a2,m);

Zamena (a3,m);

Zamena (a4,m);

writeln('Massivy posle zameny');

Vivod1M ('1',a1,m);

Vivod1M ('2',a2,m);

Vivod1M ('3',a3,m);

Vivod1M ('4',a4,m);

readln;

end.