Пожалуйста!!!! Срочно!!!! Даю 30 баллов!!!!!!!

Составить: метод решения, блок схему и программу на языке Паскаль.
1. Найдите сумму и произведение всех нечетных чисел от 1 до 20.

Ответ

Автор - antoxapantelee

var q,w,a:integer;

begin

q:=1;

a:=1;

while q<=20 do begin

w:=w+q;

a:=a*q;

q:=q+2;

end;

writeln(w);

write(a);

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.