Составте блок-схему для вычисления выражения у=(a+d(n-1))n/2,при а=10,d=2,n=3

Знания

Информатика

1 ответ:

uriyM [17]4 года назад

0 0

/ * / * / * /
Во вложении

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

Уровень A. Напишите программу, в которой сортировка выполняется «методом камня» – самый «тяжёлый» элемент опускается в конец мас

Victor

Var a:array[1..10000] of integer;
n,i,j,k,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
j:=n;
repeat
k:=j;
j:=0;
for i:=1 to k-1 do
if a[i+1]j:=i;
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
for t:=1 to n do
write(a[t],' ');
writeln;
end;
until j=0;
if k=n then
writeln(0); //Если перестановок не было, программа выводит только число 0. Если эта команда не нужна, можешь ее убрать
end.

0 0

2 года назад

Составьте программу вычисления суммы нечетных цифр натурального числа М(ПАСКАЛЬ АБЦ)

бурдина ольга

Var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
<span>end.</span>

0 0

3 года назад

Определить попадает ли точка в заданный диапазон. Написать программу.Pascal

Эвкалипт [4]

Var
    x, y, r: real;

begin
    read(x, y, r);
    if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
        or ((x < 0) and (y < 0) and (x + y >= -r)) then
        write('да')
    else
        write('нет');
end.

0 0

4 года назад

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

Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Rain 222 [2]

Var
   S:string;
   i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
k:=0;
i:=1;
Repeat
if (S[i] = ' ')or(S[i] = ',')or(S[i] = ':')or(S[i] = ';')or(S[i] = '?')or(S[i] = '!') then
   if not((S[i+1] = ' ')or(S[i+1] = ',')or(S[i+1] = ':')or(S[i+1] = ';')or(S[i+1] = '?')or(S[i+1] = '!')) then
      k:=k+1;
i:=i+1
Until S[i] = '.';
WriteLn('Количество слов: ',k+1);
End.

0 0

4 года назад

Определите значение переменной с после выполнения следующего фрагмента программы: b:=20; a:=40; a:=b-a/b; if

андрей8410

ОТВЕТ: 380
___________

0 0

4 года назад