С клавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а)

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

ВСЕ ЭТО Надобно НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ

Задать свой вопрос
1 ответ

а)

var s,a:integer;

begin

S:=-1;

a:=1;

while (a mod 5lt;gt;0) do

begin

     s:=s+a;

     readln(a);  

end;

write(s);

end.

б)

var s,a:integer;

begin

a:=1;

while (a mod 5lt;gt;0) do

begin

     readln(a);  

     s:=s+a;

end;

write(s);

end.

Кристина Любимовская
спасибо огромное!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт