Program z_3;
var a,b,n,s, i: integer;
Begin
repeat
writeln ('Введите Ваше число');
readln (n);
if (n < 10) or (n > 99) then i:= 0
else i:= 1;
until i>0;
a:= n mod 100 div 10;
b:= n mod 10;
s:= (a+b)+sqr (a+b);
if s <> n then writeln ('Число не соотвествует условию')
else writeln ('Число ',s, ' соответствует условию');
End.
11010000 10100111 11010000 10010101 11010000 10100000 11010000 10011101
11010000 10010101 11010000 10100110 11010000 10011010 11010000 10010000
11010000 10101111
<span>Целые числа, т.к. считаешь количество вхождений</span>
Program p1;
const n=5;
var i:integer;
kurs: array[1..n] of real;
summa,r,bank: real;
begin
writeln('Введите сумму: ');
read(summa);
for i:=1 to n do begin
writeln('Введите курс в ',i,' банке: ');
read(kurs[i]);
end;
r:=0;
for i:=1 to n do begin
if (kurs[i]*summa)>r then
begin
r:=kurs[i]*summa;
bank:=i;
end;
end;
writeln('Выгодно в банке №: ',bank);
<span>end.</span>