Const
n=6;
Type vector=array[1..n] of integer;
var x:vector;
i:integer;
pr:extended;
begin
pr:=1;
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 17=0 then
pr:=pr*x[i];
end;
writeln('proizvedenie= ',pr:4:4);
readln;
end.

0 0

4 года назад

В каких случаях вы можете не найти программу в главном меню операционной системы?

Serega037 [1.4K]

Теоретически, программы можно установить на компьютер и без ведома операционной системы, например, это относится к приложениям MS-DOS. В этом случае они не будут представлены в меню Программы, но ничто не мешает создать им ярлыки и ввести их в меню вручную методом перетаскивания

0 0

4 года назад

Составить программу в паскале для вычисления функции по формуле:

Аня2016 [14]

Var x,y: real;
begin
write('x = ');
readln(x);
if (x>=0)and(x<=1) then y:=x*x-x
else y:=x*x-sin(pi*x*x);
writeln('y = ',y:6:4);
end.

Пример:
x = 1.5
y = 1.5429

0 0

4 года назад

1. Какое из перечисленных устройств НЕ является устройством вывода информации?А) НаушникиБ) ПринтерВ) Плоттер Г) Микрофон

Alexandr DM [234]

Г) микрофон - он является устройством ввода информации

0 0

4 года назад

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