program laba2;
uses crt;
label a1;
var i,S,N:longint;
begin
a1:
writeln('введите N');
readln(N);
S:=0;
if N>0 then
begin
for i:=N to N+13  do
if i mod 2<>0 then
begin
S:=S+i;
end;
clrscr;
writeln ('сумма=',S);
goto a1;
end
else
begin
clrscr;
writeln ('N должно быть больше 0');
goto a1;
end;
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.05.2015, 21:34

Ответы с готовыми решениями:

Заменить цикл for на repeat/until и на while
помогите пожалуйста заменить цикл for на repeat/until и на while. Спасибо. program laba1; uses...

Как переделать программу, чтобы внешний цикл был repeat.until, а цикл for вложенным? Паскаль
const x = 0.29; var y, sv, sz, fact, st: real; i, j, zn: integer; begin sz := 0;...

Заменить цикл Repeat на While и For
Мне нужно все три цикла... А как заменить на FOR и WHILE я не догоняю.... var n,i:integer;...

Заменить цикл repeat циклом while
В общем надо заменить цикл repeat вайлом в этой программе: var s,n,m,k: integer; f:real;...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.05.2015, 21:34

Помогаю со студенческими работами здесь

Цикл While переделать на цикл repeat until
как из While переделать на цикл repeat until

Цикл repeat
Добрый день, уважаемые форумчане! Помогите пожалуйста сделать цикл (Repeat), а именно: - Если...

Цикл repeat / until
Задание: По формуле члена ряда с номером i, заданной в таблице 2, со- ставить две программы (или...

Цикл repeat until
Помогите пожалуйста через repeat-until Вычислить y=cos(x)*cos(2x)*cos(3x)*...*cos(nx)

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх