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

Ответы (1)

Джулиета 28.03.2025 4
//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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: