Склавиатуры вводится последовательность чисел - вопрос №13162095 от Kafyadd 31.03.2021 16:56

Question

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

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