вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом пред...

August 2022 1 10 Report

вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for )
помоги срооочно нужно

Answers & Comments

JustPeople VAR
   sum, i: LongInt;
   a: Array [1..4] of LongInt;
BEGIN
   Writeln('Введите четыре числа:');
   for i := 1 to 4 do Read(a[i]);

   sum := 0;
   {Сюда вставишь основной код (который ниже)}

   Write(sum);
END.
--------------------------------------------------------------
// Цикл FOR
   for i := 1 to 4 do
      sum := sum + a[i];
--------------------------------------------------------------
// Цикл с предусловием
   i := 1;
   while (i < 5) do begin
      sum := sum + a[i];
      i := i + 1;
   end;
--------------------------------------------------------------
// Цикл с постусловием
   i := 1;
   repeat
      sum := sum + a[i];
      i := i + 1;
   until (i > 4);

0 votes Thanks 1

Answers & Comments

tipy gosudarstv pomogite pozhalujsta

mednyj payalnik ostyvaet ot 200 do 150 gradusovmassa payalnika 250gkolichestv

napishite mini sochinenie sport in my life10 15 predlozhenij

pozhalujsta pomogite mne reshit eto problema zaklyuchaetsya v prilozhenii rebyat ob

pozhalujsta pomogite mne reshit eto problema zaklyuchaetsya v prilozhenii79c7b6d9e400c0955a1b53a503daf325 72981

raspolozhit v poryadke vozrastaniya metallicheskih svojstv assbnpbinado obosno

kvartira sostoit iz 3 komnat 2 komnata menshe na 5 metrov chem pervaya a 3 komnata

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

Helpful Links

Helpful Social