Question

С клавиатуры вводится последовательность чисел до первого кратного 5. вычислить: а) сумму всех введенных чисел до первого кратного 5 б) сумму всех введенных чисел, включая первое кратное 5ВСЕ ЭТО НАДО НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ ​

Answer 1

а)

var s,a:integer;

begin

S:=-1;

a:=1;

while (a mod 5<>0) do

begin

     s:=s+a;

     readln(a);  

end;

write(s);

end.

б)

var s,a:integer;

begin

a:=1;

while (a mod 5<>0) do

begin

     readln(a);  

     s:=s+a;

end;

write(s);

end.

Answer 2

Вот код на языке Паскаль, который решает поставленную задачу:

luaCopy code
program SumUntilMultipleOfFive;
var
  n, sumUntilFive, sumIncludingFive: integer;
begin
  sumUntilFive := 0;
  sumIncludingFive := 0;
  repeat
    write('Введите число: ');
    readln(n);
    sumIncludingFive := sumIncludingFive + n;
    if n mod 5 <> 0 then
      sumUntilFive := sumUntilFive + n;
  until n mod 5 = 0;
  writeln('Сумма всех введенных чисел до первого кратного 5: ', sumUntilFive);
  writeln('Сумма всех введенных чисел, включая первое кратное 5: ', sumIncludingFive);
end.

В этом коде используется цикл repeat-until, который продолжается до тех пор, пока введенное число не будет кратным 5. В каждой итерации цикла программа считывает число с помощью функции readln и обновляет две переменные: sumUntilFive и sumIncludingFive. Первая переменная содержит сумму всех введенных чисел до первого кратного 5, а вторая переменная содержит сумму всех введенных чисел, включая первое кратное 5.

После того, как цикл завершится, программа выводит на экран две суммы с помощью процедуры writeln.