В последовательности чисел найти сумму нечетных, кратных 3. Признак конца ввода ноль.(паскаль с циклом while) срочно нужна помощь
Ответы
Ответ дал:
0
Program pr;
uses crt;
Var chislo, sum:integer;
Begin
Writeln('Введите число');
readln(chislo);
sum:=0;
While chislo<>0 do
Begin
if (chislo mod 2<>0) and (chislo mod 3=0)
then sum:=sum+chislo;
Writeln('Введите число');
readln(chislo);
end;
Writeln('Сумма = ', sum);
readln();
end.
uses crt;
Var chislo, sum:integer;
Begin
Writeln('Введите число');
readln(chislo);
sum:=0;
While chislo<>0 do
Begin
if (chislo mod 2<>0) and (chislo mod 3=0)
then sum:=sum+chislo;
Writeln('Введите число');
readln(chislo);
end;
Writeln('Сумма = ', sum);
readln();
end.
Ответ дал:
0
readln();
end. Что в скобках?
end. Что в скобках?
Ответ дал:
0
ничего, это readln имитирует паузу,
если используете pascal версии ABC.NET то эту строчку можно неписать
если используете pascal версии ABC.NET то эту строчку можно неписать
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад