Задание 1
program HelloMoney;
var
y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла
p, s: real; //Объявим переменные для количества процентов и величины вклада
begin
write('Какая сумма вклада? ');
readln(s); // Указываем сколько составляет вклад
write('На сколько лет вклад? ');
readln(y); // Указываем на сколько лет вклад
write('Какая процентная ставка?');
readln(p); // Указываем процентную ставку
for i:=1 to y do
s := s + s*p/100; // Прибавляем к вкладу ежегодный процент
write('Сумма денег составит: ', s);
end.
Объяснение:
var
s, ss: string;
ls, lss, i, j: integer;
flag: boolean;
begin
readln(s);
readln(ss);
i := 1;
ls := Length(s);
lss := Length(ss);
flag := false;
while i <= ls - lss + 1 do
begin
if s[i] = ss[1] then
begin
flag := true;
for j := 1 to lss - 1 do
if s[i + j] <> ss[j + 1] then
begin
i := i + j;
flag := false;
break
end;
if flag then
begin
write('является');
exit;
end;
end;
i += 1;
end;
write('не является');
end.