Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:
А где рисунок?-_-????????
Фото гдеееееееееееееееее
var c,a,b,i,j,l: integer; begin cls;
write('введите через пробел отрезок'); read(a,b); for i: =a to b+1 do begin j: =2; l: =round(sqrt(i)); while (i mod j < > 0) and (j < = l) do begin inc(j); end; if (j > l) then begin write(c,' '); c: =i; end; end; end.
var a: array[1..100] of integer;
i,ms,ps: integer;
begin
{vvod massiva a}
for i: = 1 to 100 do
if a[i] > 0 then ps: =ps+a[i]
else ms: =ms+a[i];
writeln(ps,ms);
end.
Популярные вопросы