Вопрос по информатике:
Помогите понять программу (Pascal)
P.S. Это решение задачи (добавил во вложения)
program qq;
var i, k, m, g :integer;
begin
writeln('Введите количество цифр в последовательности (Не больше 100)');
repeat
readln(i);
until i<101;
writeln('Вводите числа (не превышающие 300)');
for k:= 1 to i do begin
repeat
readln(m);
until m<301;
if (m mod 3=0) then g:=g+m;
end;
writeln(g);
end.
- 26.04.2017 23:26
- Информатика
- remove_red_eye 18294
- thumb_up 63
Ответы и объяснения 1
var a,s :integer;
begin
s:=0
repeat(a);
writeln a0 do
begin
if(a>s) and (a mod 3=0) then;
s:=s+a;
repeat(a);
end;
writeln(s);
end.
может быть так?
- 28.04.2017 17:47
- thumb_up 58
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.