4 года назад

Помогите пожалуйста.НАПИСАТЬ ФРАГМЕНТ КОДА ПРОГРАММЫ ДЛЯ НАХОЖДЕНИЯ СУММЫ ЭЛЕМЕНТОВ МАССИВА С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПАРАМЕТРОМ

Знания

Информатика

1 ответ:

Макентош [7]4 года назад

0 0

I:=1;
s:=0;
while (i<n+1) do
begin
s:=s+a[i];
i:=i+1;
<span> end;

</span>

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

Напишите программу, решающую любое квадратное уравнение. Паскал

Deviza

Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.

0 0

4 года назад

Выразите в битах: 3 ГБ=

RomanGh

3гб= 25769803776Бит конвертируйте...

0 0

4 года назад

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

Срочно прошу помогите В списках раздела описания переменных ставиться : А)точка с запятой В) Запятая С) Точка D) двоеточие

svetikk85 [36]

В)через запятую......

0 0

4 года назад

ПАСКАЛЬ, ПОМОГИТЕ! С использованием цикла WHILE ( без массива!!!) Дана последовательность целых чисел, признак окончания которой

JellySherly

var a,b,c,e,k:integer;

begin

k:=9;//вставить любоое число

a:=-1;

while a<>0 do

begin

read(a);

if a>0 then b:=b+a;

if a<0 then c:=c+1;

if (a mod k = 0)and(a<>0) then

if e=0 then e:=a else e:=e*a;

end;

writeln('сумма положительных элементов = ',b);

writeln('кол-во отрицательных элементов = ',c);

writeln('произведение элементов, кратных ',k,' равнo ',e);

end.

если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);

0 0

4 года назад

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых произведение всех цифр совпадает с сумм

Ури21 [51]

Var
N,A,k:integer;
P,S:real;
Begin
Write('N = ');ReadLn(N);
k:=0;
For N:= 1 to N-1 do
    Begin
    A:=N;
    S:=0;
    While A>0 do
       Begin
       S:=S+(A mod 10);
       A:=A div 10;
       End;
    A:=N;
    P:=1;
    While A>0 do
       Begin
       P:=P*(A mod 10);
       A:=A div 10;
       End;
    if S=P then
       Begin
       WriteLn(N);
       k:=k+1;
       End;
    End;
if k=0 then WriteLn('Нет');
End.

0 0

4 года назад