Question

Срочно!!! перевести данную программу паскаль в праграмму со счетчиком!!! условия на фото и программа тоже

Answer 1

//PascalABC.NET 3.3,сборка 1627 от 27.01.2018

//Внимание! Если программа не работает, обновите версию!
begin

  var a:=0;var t:=0;

  for var i:=1 to 3 do

  begin

    if i=3 then

  a:=1

  else a:=7;

  a*=7;

  t:=t+a;

  end;

  t:=t*7;

  Writeln('Количество предметов=',t);

end.

Или как в школах учат ->

var a,t:integer;

begin

  for var i:=1 to 3 do

  begin
  a:=0; t:=0;
    if i=3 then

  a:=1

  else a:=7;

  a*=7;

  t:=t+a;

  end;

  t:=t*7;

  Writeln('Количество предметов=',t);

end.