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

July 2022 1 8 Report

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

Answers & Comments

nkpk //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.

2 votes Thanks 2

Answers & Comments

zadacha po informatike u kazhdoj iz 7 staruh 7 valov v kazhdom vale 7 hlebov v k

pomogite srochnobaccdf824d7cfd2e5a20d157df006771 80890

pomogite nuzhno sostavit1 otricatelnoe predlozhenie2obshij vopros3 specialn

pomogite reshit pozhalujsta srochno3b92ff0cd8d5751097309c2aef7456c2 31474

postroit secheniesrochno esli mozhno s obyasneniem

najti rsoprotivlenie obshee pomogite srochno

3x4v kvadrate4h3 pomogite srochno pozhalujsta

rastenie soya wbelka65 sutochnaya norma potrachbelka80gr najtimsoipomogit

рекомендуемые вопросы

Helpful Links

Helpful Social