Question

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

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

Answer 1

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.