Program aaa;
var A,B: array[1..4,1..4] of integer; i,j,x: byte;
begin
randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим матрицу
writeln ('Исходная матрица:');
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
A[i,j]:=random(-10,10); //рандомное значение ячейки матрицы
write(A[i,j]:4) //вывод ячейки матрицы
end;
writeln;
end;
//поворачиваем матрицу на 90 градусов
for j:=1 to 4 do
begin
x:=0;
for i:=4 downto 1 do
begin
x:=x+1;
B[j,x]:=A[i,j]
end
end;
// выводим итоговую матрицу
writeln;
writeln ('Матрица, повернутая на 90 градусов:');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(B[i,j]:4);
writeln
end
end.
--------------------------------------------------
Результат работы программы:
Исходная матрица:
-7 -8 3 4
10 -5 -1 -8
3 -9 -7 -1
-2 6 -8 -9
Матрица, повернутая на 90 градусов:
-2 3 10 -7
6 -9 -5 -8
-8 -7 -1 3
-9 -1 -8 4
//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
Ответ: 1024
using System;
class Program { static void Main(string[] args) { double n = Math.Pow(2.00, 12.00); long howMuch = 0;
SumOfDigits sod = new SumOfDigits(); for (int i = 0; i < n; ++i) { int SumI = sod.CountSumOfDigits(i);
if (SumI % 4 == 0) { howMuch++; } } Console.WriteLine(howMuch); //Console.WriteLine(n); Console.ReadLine(); } } class SumOfDigits { public int CountSumOfDigits(int x) { int sum = 0; while (x > 0) {
sum += x % 10; x /= 10; } return sum; } }
В первом не хватает-13,14, а во втором -1,2,3,4,5,6,7,9,11,12,13,14,15,16.
256=2^8
16=2^4
Объём файла=кол-во символов*кол-во бит на 1 символ
то есть объём увеличится в 2 раза)