Склавиатуры вводится последовательность чисел до первого - вопрос №13171115 от Алина13445 27.03.2020 15:28

Question

Информатика: Склавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а) сумму всех введенных чисел до первого кратного 5 б) сумму всех введенных чисел, включая первое кратное 5все это надо написать на языке паскаль ​

Алина13445 · Answer

а)var s,a:integer;beginS:=-1;a:=1;while (a mod 5 0) dobegin      s:=s+a;      readln(a);   end;write(s);end.б)var s,a:integer;begina:=1;while (a mod 5 0) dobegin      readln(a);        s:=s+a;end;write(s);end....