Var array = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20];
for (i=0;i<=array[i];i++)
{
if (array[i]>5) document.write(i)
}
Var a:char;
b:real;
begin
writeln( 'Введите месяц и день', a, b);
readln (a,b);
if a='т' then Writeln( 'тяп ', b);
if a='л' then Writeln( 'ляк ',b);
if a='м' then Writeln( 'мяк ',b);
if a='б' then Writeln( 'бяк ',b);
end.
Var
i, j: integer;
ar: array[1..5, 1..5]of real;
b: boolean; //объявление переменных
begin
for i := 1 to 5 do
for j := 1 to 5 do read(ar[i, j]); //ввод матрицы
for i := 1 to 5 do
begin
b := true;
for j := 1 to 2 do
if(ar[i, j] <> ar[i, 5 - j + 1]) then //проверяем равен ли 1 элемент 1 строки
// последнему элементу 1 строки, 2 элемент 1 строки и 5-1 элемент
//если они неравны то выходим из одного цикла
begin
b := false; //б -ложь значит строка не симметрична
break;
end;
if(b = true) then write(i, ' '); //если б -истина выводим номер строки
end;
end.
Объяснение:
& - это ^. У меня он не ставится, но делает свои действия. У себя его ставьте!
8 бит ............ Рррппррр слишком коротко