Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>
Периферийные устройства-с их помощью можно вводить или выводить информацию из компьютера.
Основные устройства-компоненты компьютера(процессор).
Ответ:
7.A)
8.D)
Объяснение:Я изучаю программирование можете не сомневаться!
Program g;
var A,B,C: real;
begin
readln(A);
C:=A; // А в степени 1
B:=A*A; // А в степени 2
A:=B*B; // А в степени 4
A:=A*B*C; // А в степени 1 на 2 на 4 = А в степени 7
writeln(A);
end.
Var
a,b,c,max,mid,min,t:integer;
begin
Writeln('Введите через пробел три целых двухзначных числа');
Readln(a,b,c);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if max<c then begin mid:=max; max:=c end
else mid:=c;
if min>mid then begin t:=mid; mid:=min; min:=t end;
if (max-min)>mid then Writeln('YES')
else Writeln('NO')
end.
Тестовое решение:
Введите через пробел три целых двухзначных числа
37 93 74
NO