Var a,i,max:integer;
begin
max:=-30000;
for i:=1 to 5 do begin
readln(a);
if a>max then max:=a;
end;
writeln('Максимальное - ', max);
end.
//Java
<span>class Main {
public static void main(String[] args){
String a = "t.e.x.t.o.f.t.h.i.s.t.e.x.t";
int b = 0;
for (int i = 0; i < a.length(); i++)
if (a.charAt(i) == '.')
b++;
System.out.println(b);
}
}
Проверка:
$ javac Main.java
13</span>
Это очень,для меня сложно.Но - Но можно поискать в интернете Подскажи мне автора книги
Const b:array[1..12] of string=('A','a','E','e','I','i','O','o','U','u','Y','y');
var a:string;
i,j,k:integer;
begin
readln(a);
for i:=1 to length(a) do
for j:=1 to 12 do
if a[i]=b[j] then k+=1;
writeln(k/length(a):3:2);
<span>end.</span>