Дорогие пользователи! С 15 декабря Форум Дети закрыт для общения. Выражаем благодарность всем нашим пользователям, принимавшим участие в дискуссиях и горячих спорах. Редакция сосредоточится на выпуске увлекательных статей и новостей, которые вы сможете обсудить в комментариях. Не пропустите!
Снова HELP. Снова информатика
Всем добра, а не как у меня...
Снова я со своей информатикой.
2. Найти сумму и произведение первых 20 натуральных чисел, которые оканчиваются на 12. Составить программу и блок-схему решения. Задачу решить тремя способами (тремя разными циклами).
Программа с постусловием не считает произведение... Сумму считает, а произведение нет. Понимаю, что ошибка в формуле произведения, но не могу ее найти...
Помогите
Program_12;
var
A,S,I,P: Integer;
begin
A:=12;
P:=1;
S:=0;
I:=1;
repeat
S:=S+A;
P:=P*A;
A:=A+100;
I:=I+1;
until I>20;
writeln (S);
Writeln (P);
end.
Снова я со своей информатикой.
2. Найти сумму и произведение первых 20 натуральных чисел, которые оканчиваются на 12. Составить программу и блок-схему решения. Задачу решить тремя способами (тремя разными циклами).
Программа с постусловием не считает произведение... Сумму считает, а произведение нет. Понимаю, что ошибка в формуле произведения, но не могу ее найти...
Помогите
Program_12;
var
A,S,I,P: Integer;
begin
A:=12;
P:=1;
S:=0;
I:=1;
repeat
S:=S+A;
P:=P*A;
A:=A+100;
I:=I+1;
until I>20;
writeln (S);
Writeln (P);
end.
Тема закрытаТема скрыта
S,I,A: integer
P:double
S,I,A: integer
P:double
Скорее всего учитель придумал задание "на ходу" и не продумал последствия. С меньшим счетчиком работает.