Плюсы:Если пишешь конспект,и т.д, то можно его написать в электронном виде,на компьютер можно установить игры и это буднт развлечением,на компьютер можно хранить важные документы,гапример в отднльной папке,а на папку поставить пароль,и они никуда не пропадут.
Минусы:портит зрение,жрет много электричества,игры иногда зптягивают и вызывают зависимость
Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.
Итак, помогу вам в очередной раз.
Нам необходимо найти формулу, чтобы вычислить значение ячейки D2, которая подходит под данную диаграмму. На самой диаграмме мы видим 2 равных элемента, для начала найдем их среди диапазона ячеек A2:C2.
1) A2 = A1 - B1.
Значение ячеек A1 и B1 смотрим в таблице и делаем так же по аналогии в других случаях
A2 = 4 - 2 = 2
Ячейка A2 равна 2
2) B2 = C1 - D1 = 3 - 1 = 2
И тут мы нашли две равные ячейки, по диаграмме мы видим, что они составляют 50% от общего значения, значит остальное значение равно сумме этих ячеек, то есть 4. Но на оставшейся части диаграммы заметно, что некоторая ее часть больше второй, значит одна часть будет равна 1, а вторая 3. Сейчас нам нужно найти значение ячейки C2, чтобы сделать вывод и найти ответ среди предоставленных вариантов
3) С2 = В1 - 1 = 2 - 1 = 1
Значение ячейки С2 = 1, следовательно значение D2 должно равняться 3. Находим подходящую формулу среди вариантов, чтобы в результате получилось 3.
1 Вариант: A1 - 2 = 4 - 2 = 2 - не подходит.
2 Вариант: А1 - 1 = 4 - 1 = 3 - здесь сразу же мы нашли подходящий вариант, можем дальше не проверять остальные
Ответ: 2)
Var
n, x: longint;
begin
readln(n);
x := round(sqrt(n));
if x * x = n then
writeln('YES')
else
writeln('NO');
end.
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j, k, s: integer;
begin
Writeln('Сгенерированная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := abs(n - i - j + 1);
Write(a[i, j]:2)
end;
Writeln
end;
Write('Введите номер столбца (1-10): ');
Readln(k);
if not (k in [1..10]) then Writeln('Столбца с таким номером не существует')
else begin
s := 0;
for j := 1 to n do s := s + a[k, j];
Writeln('Сумма элементов по столбцу ', k, ' равна ', s)
end
end.
Тестовое решение:
Сгенерированная матрица
9 8 7 6 5 4 3 2 1 0
8 7 6 5 4 3 2 1 0 1
7 6 5 4 3 2 1 0 1 2
6 5 4 3 2 1 0 1 2 3
5 4 3 2 1 0 1 2 3 4
4 3 2 1 0 1 2 3 4 5
3 2 1 0 1 2 3 4 5 6
2 1 0 1 2 3 4 5 6 7
1 0 1 2 3 4 5 6 7 8
0 1 2 3 4 5 6 7 8 9
Введите номер столбца (1-10): 8
Сумма элементов по столбцу 8 равна 31