Пожаловаться
- 09.05.2018 03:34
- Информатика
- remove_red_eye 7125
- thumb_up 19
Ответы и объяснения 1
//1
begin
var x:=readreal ('Введите x: ');
if x>1,1 then write (9-x) else write ('(sin(3*x))/(sqr(sqr(x))+1)');
end.
//2
begin
for var i:=random(20)-30 to random (20)+2 do println ('f(x) =', -1*cos(2*i));
end.
//3
var
arr: array of integer;
count: byte;
begin
setlength (arr, 10);
for var i:=0 to length (arr)-1 do arr[i]:=random (201)-100;
for var i:=0 to length (arr)-1 do if (arr[i] mod 2)=0 then inc (count);
write (count);
end.
begin
var x:=readreal ('Введите x: ');
if x>1,1 then write (9-x) else write ('(sin(3*x))/(sqr(sqr(x))+1)');
end.
//2
begin
for var i:=random(20)-30 to random (20)+2 do println ('f(x) =', -1*cos(2*i));
end.
//3
var
arr: array of integer;
count: byte;
begin
setlength (arr, 10);
for var i:=0 to length (arr)-1 do arr[i]:=random (201)-100;
for var i:=0 to length (arr)-1 do if (arr[i] mod 2)=0 then inc (count);
write (count);
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы