Задать вопрос!

Задать вопрос!

Все категории

1 год назад

13

По информатике задали задачу, помогите решить, пожалуйстa.

Help me plеase

Информатика

1 ответ:

Татьянаволк1 год назад

0 0

9258855

_€/788

Yoykhhfghjfh

Читайте также

Напишите программу, которая считывает с клавиатуры n чисел и затем выводит на экран сумму и среднее арифметическое отрицательных

YanaDV

Var i,n,nmb: integer;
<span> dg,sm: real;
</span><span>begin
</span><span> sm:=0; nmb:=0;
</span><span> write('n = ');
</span><span> readln(n);
</span><span> write('числа через пробел: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> read(dg);
</span><span> if dg<0 then</span><span>
</span> begin
<span> sm:=sm+dg;
</span><span> nmb:=nmb+1;
</span><span> end;
</span><span> end;
</span><span> writeln('сумма отрицательных чисел = ',sm);
</span><span> writeln('среднее арифметическое = ',sm/nmb);
</span><span>end.

</span>

0 0

4 года назад

Составить блок-схему к данному коду Var a,n,i,k:integer; Begin Readln(n); k:=0; For i:=1 to N do Begin readln(a); if a&gt

Илья Кутузов [120]

Блок-схема - в прилагаемом файле.

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу, которая проверяет , является ли целое число , введенное пользователем , простым. Программа Паскаль Цикл с п

Лена28

Program chet;
var i,k,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if n mod i = 0 then k:=k+1;
end;
if k=2 then writeln('число,',n,',натуральное')
else writeln('число,',n,',не натуральное');
<span>end.</span>

0 0

3 года назад

Что такое система указателей в словоре??

karakurt

Система - это объект,состоящий из взаимосвязанных элементов и существующих как одно целое

0 0

4 года назад

Дана программа на языке Паскаль. Заполни пропуски. Вывод на экран квадратов чисел от 1 до 43. var : integer; begin for i:=1 to d

Mix01

Var i:integer;
begin
for i:=1 to 43 do
writeln(sqr(i));
readln;
<span>end.</span>

0 0

5 лет назад