Составить блок-схему для задачи:«Даны два целых числа A и B (A Найти произведение всех целых чисел от A до B включительно.»

123

302

Посмотреть ответы 1

Ответы на вопрос:

СоНьКаАаАаА

Информатика

4,4(90 оценок)

Program pr; var a: array[1..6]of real; i,kol: integer; sr_ar: real; begin for i: =1 to 6 do begin readln(a[i]); sr_ar: =sr_ar+a[i]; end; sr_ar: =sr_ar/6; writeln(sr_ar); for i: =1 to 6 do begin if(a[i]< sr_ar) then kol: =kol+1; end; writeln(kol); end.держи, п.с. везет вам, проги на дом писать ), у нас практической части почти нет(удачи!