Вопрос по информатике:
Program summa;
Uses Crt;
Var S,a,n,i:integer;
Begin
Write('vvod kol-va chisel=');
Readln(n);
If n<=100 then
Write('vvod chisel=');
S:=0;
for i:=1 to n do begin
read(a);
If ((a mod 3)=0) and ((a mod 10)=2) then
S:=S+a;
End;
Writeln('vivod summi=',S);
readkey;
End.
что не так в этой программе? исправьте пж
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.08.2016 13:10
- Информатика
- remove_red_eye 11458
- thumb_up 26
Ответы и объяснения 1
Uses Crt;
Var S,a,n,i:integer;
Begin
Write('vvedite kol-vo chisel');
Readln(n);
If n<=100 then
begin
Write('vvod chisel');
S:=0;
for i:=1 to n do begin
read(a);
If ( a mod 3 =0) then
S:=S+a;
End;
Writeln('vivod summi=',S);
readkey;
end;
else
writeln('error,invalid value');
End.
- 25.08.2016 09:05
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.