<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
if a.Rows.SelectMany(x->x).Sum mod 21=0 then
Writeln('Сумма элементов одновременно делится на 3 и на 7')
else
Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.
<u>Примеры</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
73 -53 69 -94 -38 50 30
-9 63 54 28 -56 68 21
-97 18 -80 68 86 -27 -3
33 -30 -17 6 -69 -95 -81
----------------------------
Сумма элементов одновременно не делится на 3 и на 7
Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
-53 14 50 52
-81 55 14 -89
99 -53 37 96
73 27 -8 -85
0 -8 46 50
----------------
Сумма элементов одновременно не делится на 3 и на 7
// PascalABC.NET 3.0, сборка 1073
var
a,b,c:integer;
begin
Write('Введи a,b,c: '); Read(a,b,c);
if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
else Writeln('Все числа различные')
end.
<em><u>Тестовое решение:</u></em>
Введи a,b,c: 6 3 -12
Все числа различные
Введи a,b,c: 5 -4 5
Есть пара одинаковых
// PascalABC.NET 3.0, сборка 1073
var
n:string;
a,b:char;
begin
Write('Введи натуральное число n: '); Readln(n);
Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
else Writeln('В числе цифры '+a+' нет');
if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
else Writeln('В числе цифры '+b+' нет')
end.
<u><em>Тестовое решение:</em></u>
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7
// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
fiba,fibb,fib:longint;
begin
Write('Введи натуральное число (1-46): '); Read(n);
if n<3 then Writeln('Число Фибоначчи равно 1')
else begin
fiba:=1; fibb:=fiba;
for i:=3 to n do begin
fib:=fiba+fibb;
fiba:=fibb; fibb:=fib
end;
Writeln('Число Фибоначчи равно ',fib)
end
end.
<u><em>Тестовое решение:</em></u>
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233
<span>Налить в кувшин емкостью 8 литров 2 кувшина по 3 литра - будет 6 литров. Потом влить третий раз, и 8 литровый кувшин наполнится полностью. В 3 кувшине емкостью 3 литра останется 1 литр. Затем выливаем из 8 литрового кувшина полностью всю воду. Заливаем 1 литр - оставшийся в 3 литрвом кувшине и также потом заливаем 2 раза полных кувшина по 3 литра. получается, что будет как раз-то и семь литров. По-моему так.</span>
Виды компьютеров .
Компьютер сегодня, это все более необходимая вещь в доме,но каждого наверное есть вопрос Какое мне именно купить?Какой мне подходит ?Вот на этот вопрос я попробую ответить, описанием основных видов.
Настольный, стационарный, персональный компьютер. Самый распространенный тип компьютеров. Отличается универсальностью практически во всем, умеет наверно все что умеет любой другой компьютер, во всяком случае может научится всему, с помощью дополнительного программного обеспечения или подключения соответствующего устройства.
Моноблок
Тот же стационарный компьютер, но все содержимое системного блока располагают сзади монитора, прямо в его корпусе.
Ноутбук notebook, блокнотный ПК,
Разновидность переносных или мобильных ПК. По производительности обычно слабей или в лучшем случае равен персональному ПК
Нетбук
Тот же ноутбук, только меньше, проще, легче, дешевле и без дисковода (хотя встречаются исключения).
Неттоп
Грубо говоря это бюджетный вариант стационарного ПК. Не всегда в цене, но всегда в производительности, за счет маленького корпуса.