Ответы
Ответ дал:
1
program n20_2;
var a, s:integer;
begin;
repeat
readln(a);
if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;
until a = 0;
write(s);
end.
var a, s:integer;
begin;
repeat
readln(a);
if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;
until a = 0;
write(s);
end.
gagaa222:
Спасибо огромное))
Можно вопрос? Что такое repeat( не проходили такого)
Типа повторить?
Ещё. untill,что это?
Repeat/until - цикл, который повторяется пока выполняется условие, но в отличие от while он всегда выполняется хотя бы один раз. Если вы это не проходили, лучше заменить его на это:
program n20_2;
var a, s:integer;
begin;
readln(a);
while a<>0 do begin;
readln(a);
if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;
end;
write(s);
end.
var a, s:integer;
begin;
readln(a);
while a<>0 do begin;
readln(a);
if (a mod 2 = 0) and (a>15) and (a<190) then s+=a;
end;
write(s);
end.
А там разве If должен быть?
Спасибо
If нужен, чтобы проверить, принадлежит ли число интервалу и является ли оно чётным.
Ой, только что заметил, что программа должна выводить 'net', если нет чётных чисел, принадлежащих интервалу. Замени "write(s)" на "if s>0 then write(s) else write('net');"
Вас заинтересует
1 год назад
1 год назад
2 года назад
3 года назад
3 года назад