Предмет: Информатика,
автор: gagaa222
Помогите написать программу,на паскале,заранее спасибо,очень нужно
Приложения:
Ответы
Автор ответа:
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');"
Похожие вопросы
Предмет: Геометрия,
автор: slavavasiliev2019
Предмет: Другие предметы,
автор: kirilpavlishin
Предмет: Литература,
автор: pavlovav37
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: babaevaradima