Задать вопрос!

Задать вопрос!

Все категории

4 года назад

14

К таблице 5.15 применяется команда копирования: копировать C1 в D1.Какая формула занесется в ячейку D1 и какое значение будет в

этой ячейке в режиме отображения значений?
До 20 решите пожалуйста

Информатика

1 ответ:

RykoffSlavik [21]4 года назад

0 0

Формула будет b1+c1. Значение будет равно 11

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

Можно ли поставить 1.5в на оперативную память (ddr4)? Это нужно для частоты 4133cl15. Не вредит ли это контроллеру памяти и сист

Конг [1]

что то мне подсказывает что для разгона надо брать память с радиаторами и не перегревать а все остальное на нормальных плашках все будет ок

0 0

1 год назад

Задано число n. Требуется найти число от 1 до n, включительно, которое имеет максимальное число положительных целых делителей. Н

alexids [90]

Ответ:

program Delitel;

var

n, i, j, c, d: Integer;

a: array of Integer;

begin

Write ('Введите N: ');

ReadLn (n);

SetLength (a, n + 1);

for i := 1 to n do begin

c := 0;

for j := 1 to i do begin

if i mod j = 0 then

Inc (c);

end;

a [i] := c;

end;

c := 1;

for i := 1 to n do begin

if a [i] > a [c] then

c := i;

end;

WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');

ReadLn;

end.

0 0

4 года назад

Помогите как замедлить часы не переставляя стрелок

Вячеслав Ан [4]

Сзади нужно поднести большой магнит или приклеять

0 0

4 года назад

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

Составьте программу определяющую, является ли число x простым

StaticZero [31]

Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln('неверные данные'); writeln('a>=2');readln; halt; end; begin clrscr; write('a=');readln(a); if a<2 then haltproc; if a=2 then begin writeln2('простое'); readln;halt; end; p:=true; for i:=2 to trunc(a-1) do if a/i=trunc(a/i) then p:=false; if p=true then write('простое') else write('не простое'); readln; end.

0 0

4 года назад

Написать программу вычисления периметра треугольника, проверить существование треугольника- Паскаль

Алина7-81

Ответ:

Program z1;

Var a,b,c,p:integer;

begin

Writeln('Введіть сторони трикутника:');

Readln (a,b,c);

p:=a+b+c;

Writeln ('Периметр трикутника:');

if a+b>c AND c+a>b AND b+c>a then

Writeln ('Трикутник буде існувати.')

else

Writeln ('Трикутник не буде існувати.');

end

0 0

4 года назад