Var a: array [1..20] of integer; i,s1,s2:integer;
П1 -> П0 x>=0 21
x^2 ИП1 x^2 + П2 4 - x>=0 21
ИП2 1 - x<0 21 1 С/П 0 С/П
Ввод: x ^ y С/П.
Блок-схема примерно такова:
/ x, y /
|
нет < x > 0 > да |
|----- нет < x^2 + y^2 <= 4> да |
|----------------------- нет < x^2 + y^2 >= 1 > да |
L / не принадлежит / / принадлежит /
Program gt;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами
end;
writeln(k);
end.
Var i: integer;
begin
for i:=10 to 99 do
begin
if (i div 10 - i mod 10 > 3 ) then
print(i);
end
end.