Склавиатуры вводится последовательность чисел до - вопрос №51316434 от 110217 26.02.2023 03:13

Question

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

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