Перегляньте сайт зелена хвиля (ecoclubua.com). Запишіть, які елементи сайту відповідають вимогам ергономіки, а які - ні. Запишіть, у чому б могла полягати оптимізація сайту.
#include <iostream> // Заголовочный файлusing namespace std; // пространство имен, надо для ввода и вывода информации int main() // Главная функция { int A[10], k = 0,i,n=10; // объявление переменных // Заполняем вручную элементы массива A[0] = 1; A[1] = 2; A[2] = 3; A[3] = 4; A[4] = 5; A[5] = 6; A[6] = 7; A[7] = 8; A[8] = 11; A[9] = 10; for(i=0;i<n;i++) // цикл от 0 до n { if((A[i] %3==0) && (A[i]%4!=0)) k++; // Условие, Если элементы массива А делятся на 3 с остатком 0 И элементы массива не делятся на 4 с остатком 0, то считаем количество.} cout << "Количество чисел, которые делятся нацело на 3 и не делятся на 4: " << k<< endl; system("pause"); // Нужно для паузы в программы, для просмотра результата. }
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin var n:=ReadInteger('Число строк (столбцов) матрицы:'); Writeln('Введите элементы матрицы построчно'); var a:array[,] of integer; SetLength(a,n,n); for var i:=0 to n-1 do for var j:=0 to n-1 do Read(a[i,j]); var s:=0; for var i:=0 to n-1 do s+=a[i,i]; Writeln('Сумма элементов главной диагонали равна ',s) end.
Тестовое решение Число строк (столбцов) матрицы: 3 Введите элементы матрицы построчно 1 6 3 8 4 9 0 1 7 Сумма элементов главной диагонали равна 12
int main() // Главная функция
{ int A[10], k = 0,i,n=10; // объявление переменных
// Заполняем вручную элементы массива
A[0] = 1;
A[1] = 2;
A[2] = 3;
A[3] = 4;
A[4] = 5;
A[5] = 6;
A[6] = 7;
A[7] = 8;
A[8] = 11;
A[9] = 10;
for(i=0;i<n;i++) // цикл от 0 до n
{
if((A[i] %3==0) && (A[i]%4!=0)) k++; // Условие, Если элементы массива А делятся на 3 с остатком 0 И элементы массива не делятся на 4 с остатком 0, то считаем количество.}
cout << "Количество чисел, которые делятся нацело на 3 и не делятся на 4: " << k<< endl;
system("pause"); // Нужно для паузы в программы, для просмотра результата.
}
begin
var n:=ReadInteger('Число строк (столбцов) матрицы:');
Writeln('Введите элементы матрицы построчно');
var a:array[,] of integer;
SetLength(a,n,n);
for var i:=0 to n-1 do
for var j:=0 to n-1 do Read(a[i,j]);
var s:=0;
for var i:=0 to n-1 do s+=a[i,i];
Writeln('Сумма элементов главной диагонали равна ',s)
end.
Тестовое решение
Число строк (столбцов) матрицы: 3
Введите элементы матрицы построчно
1 6 3
8 4 9
0 1 7
Сумма элементов главной диагонали равна 12