Склавиатуры вводится последовательность чисел - вопрос №13171115 от shkuta03 05.11.2020 08:24

Question

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

shkuta03 · 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....