===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Одну единственную
for (интератор начала, условие выхода, шаг) { }
Dx = 3+n(27+a)-27=n(27+a)-24=0
dy=-3+n(17+b)-17=n(17+b)-20=0
У нас получается система из 2 уравнений с 3 неизвестными. Она не решается, тем более не приведет к одному числу. Вообще говоря для любого н можно подобрать такие а и b чтоб удовлетворяли системе
Вывод : с условием что-то не так или задача с подвохом
Вот решение первой задачки:
program Sosed;
uses Crt;
const n = 10;
type Vec = array [1..n] of integer;
var A: Vec;
i, Col: integer;
begin
ClrScr;
Randomize;
WriteLn('Massiv A:');
for i:=1 to n do
begin
A[i]:= 10+random (90);
Write (A[i]:4);
end;
WriteLn;
Col:=0;
for i:=2 to n do
begin
if A[i]<A[i-1] then
Col:=Col+1;
end;
WriteLn;
if Col<>0 then Writeln('Col =', Col)
else WriteLn('None!');
ReadLn;
end.