4 года назад

Выполните вычисления по блок-схеме. Начальное значение Х=7. Определите чему равно конечное значение Х.

Знания

Информатика

1 ответ:

Владимир Алексеевич4 года назад

0 0

X равен 5
...................

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

Все 5-буквенные слова, составленные из букв К, О, Р, записаны в алфавитном порядке и пронумерованы. Вот начало списка: 1. ККККК

Аня37 [1]

Обозначения:
К=0
О=1 ( троичная система счисления)
Р=2
список:
№ 3 сс 10сс
1     00000 0
2 00001    1
3    00002    2
4 00010 3
...............................
182 Х 181 (10сс)

181 (10сс)= 20201 (3сс) =РКРКО
Х=РКРКО
ответ РКРКО

0 0

4 года назад

Определить, встречается ли в введенном числе хотя бы одна цифра больше 3, но меньше 8

Sansan-org [4]

Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.

0 0

4 года назад

Системы машинного перевода текстов - это программы, осуществляющиеавтоматизированный перевод...?

janethesun

Объяснение:

Машинный перевод-процесс перевода текстов(письменных, а в идеале и устных), с одного естественно языка на другой с помощью спец.комп.прогрммы.Так же называется направление научных исследований связанных с построением подобных систем

0 0

4 года назад

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

Помогите пожалуйста составить список компьютерных антивирусных программ

Липа [2]

Avast,Nod32,Kaspersky Security ,360

0 0

4 года назад

Нужно перевести эту блок схему в программу паскаль,как это сделать?

АндрейКодд [19]

Ответ:

Program Scheme;

Var xn,xk,dx,x,s,p,k,y: Extended;

Label rep;

Begin

write('Enter xn: ');

readln(xn);

write('Enter xk: ');

readln(xk);

write('Enter dx: ');

readln(dx);

s:=0; p:=1; x:=xn; k:=0;

rep:

If x <= xk then

Begin

y:=exp(sin(x))*cos(x);

writeln('x = ',x:0:3, ' y = ', y:0:3);

if y >= 0 then

s:=s+y;

if y <> 0 then

p:=p*y;

x:=x+dx;

goto rep;

End

else

Begin

writeln('S = ', s:0:3, ' P = ', p:0:3, ' k = ', k:0:3);

exit;

End;

End.

Объяснение: Если есть вопросы, пишите в лс.

0 0

4 года назад