Вариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
<span>end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
<span>end.</span></span>
Var s,s0:string;
begin
write('введите строку: ');
readln(s);
write('введите подстроку: ');
readln(s0);
if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.
Тест №1
введите строку: qwerty
введите подстроку: wer
Да
Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-30,30);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Полученный массив ***');
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if (i+j).IsEven then a[i,j]*=3
else a[i,j]:=a[i,j] div 2;
a.Println(4)
end.
Var
a,b,c,max:real;
begin
Write('Задайте три числа: ');
Readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
Writeln(ln(c))
end.