Дорогие пользователи! С 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.
Тема закрытаТема скрыта
Вот поэтому и решила спросить у умных людей...
((
((
Попробуйте Р:=Р×(А/100) а во writln ("P=(100^20)×", P)
Попробуйте Р:=Р×(А/100) а во writln ("P=(100^20)×", P)
Вот что получилось.
Спасибо вам за помощь. Только я не знаю, как сын будет объяснять откуда он взял double))).