чтобы вычислить любое слова в юникоде, надо лишь знать, что 1 символ = 2 байта
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Введите начальную скорость снаряда, расстояние до стены, высоту стены');
var (v,S,h):=ReadReal3;
var A:=ReadReal('Введите угол наклона ствола пушки');
if v<=0 then begin
Writeln('Скорость должна быть положительной');
Exit
end;
if v>1000 then begin
Writeln('Скорость слишком велика');
Exit
end;
if S<=0 then begin
Writeln('Расстояние должно быть положительным');
Exit
end;
if h<=0 then begin
Writeln('Высота стены должна быть положительной');
Exit
end;
if A<=0 then begin
Writeln('Пушка не должна стрелять в землю');
Exit
end;
if A>=pi/2 then begin
Writeln('Пушка направлена не в сторону стены');
Exit
end;
var L:=S*Tan(A)-9.81*S/(2*v*v*Sqr(Cos(A)));
if L>h then begin
Writeln('Снаряд не попал в стену...');
Exit
end;
if L<0 then Writeln('Снаряд не попал в стену...')
else Writeln('Попал!!!')
end.
<u>Пример</u>
Введите начальную скорость снаряда, расстояние до стены, высоту стены
300 500 8.5
Введите угол наклона ствола пушки 0.2
Снаряд не попал в стену...
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
На самом деле не всегда. Только в тех системах программирования, где элементы двухмерного массива хранятся построчно. Некоторое ускорение выборки данных связано с тем, что при этом проще вычисляется номер элемента в одномерной последовательности элементов, интерпретируемой системой программирвания как двухмерный массив.
Если же элементы двухмерного массива хранятся по столбцам, то и обходить его быстрее по столбцам.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.
<u>Пример</u>
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6