4 года назад

Помогите самостоятельную по инфе дали

Знания

Информатика

1 ответ:

Fred20144 года назад

0 0

1) Просто считаем формулы по порядку получаем В1=6

2) 2-В18

3) т.к. срзнач=5 и включает в себя интервал из 6 ячеек то мы можем найти сумму чисел этих ячеек 5*6=30

также мы значем сумму интервала ячеек+ячейка с2

т.е. С2+ С3:С8=47 отсюда С2=47-30=17

С2=17

4) просто считаем формулы получим:

А2=10 В2=30 С2=30 Д2=10

для этих значений подходит диаграмма под номером 4

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

написать на языке паскаль программу для вычисления выражения s=(2х+у)*(х-у) протестировать ее для х=2,у=1 х=3,у=0 х=0,у=-2

Jniuy [50]

var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.

0 0

4 года назад

Оперативная память предназначена для: а.длительного хранения информации b.хранения неизменяемой информации c.кратковременного хр

elifir89 [7]

ответ - под буквой c

0 0

4 года назад

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

Составить свой чайнворд.опиши четыре предмета или существа придумай кросворд 1 . . . 2. .. .4 . . . 3

Бахсултан [14]

1)Корм. Пища, предназначенная для животных.
2) Мозг. Центральный орган нервной системы.
3)Гром. Сильный шум после молнии.
4) Маяк. Большой фонарь, помогающий самолётам и кораблям в направлении.

0 0

4 года назад

. Написать программу на языке Pascal решения квадратного уравнения. Программа должна проверять правильность введенных пользовате

Platon038 [1]

Program yravnenie;

Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
   Writeln('x1 = ',-p/2-Sqrt(D):0:5);
   Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
   Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
   Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.

0 0

4 года назад

Вычеркивание цифрыДано натуральное число, содержащее не более N (0<N£9) цифр. Вычеркнув в нем одну цифру, получить наибольшее

Alyon ka

Var
s, si, sm: string;
i, n: integer;
f: Text;

begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
n := Length(s);
sm := Copy(s, 2, n - 1);
for i := 2 to n do
begin
    si := s;
    Delete(si, i, 1);
    if sm < si then sm := si
end;
Writeln(f, sm);
Close(f)
end.

0 0

4 года назад

Помогите самостоятельную по инфе дали​

Помогите самостоятельную по инфе дали