Описать функцию fillstr(s,len) строкового типа, возвращающую строку длинны len, заполненную повторяющимися копиями строки-шаблона s ( последняя копия строки-шаблона может входить в результирующую строку частично).
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
function FillStr(S:string;Len:integer):String; begin var k:=Len div S.Length; if k>0 then Result:=S*k else Result:=''; k:=Len-k*S.Length; if k>0 then Result+=S[:k+1] end;
Жили-были Компьютер, Мышка и Клавиатура. Они были брат и две сестры, монитор был злюкой : 3. Монитор ни в чем не уступал Компьютеру, мышке и клавиатуре. Однажды произошло соревнование, которое составил Господин Интернет ,, Арифметические действия над числами". ,,Первое задание!" - торжественно начал произносить Интернет, "Вам надо решить следующий пример". Пример был таков: 9.015 - 118 × 34 + 48. 633 : 39 = ? Все начали напряженно решать этот пример. Компьютер, Мышка и Клавиатура работали вместе - на Компьютере было видно, что они пишут, с Клавиатуры и ее букв они пишут пример и действия, а Мышка следила за правильностью цифр в примере, и решать пример. А наш злой Монитор ни с кем не решал этот пример, он надеялся только на себя. Вот наши Компьютер Мышка и Клавиатура решают последнее действие, а Монитор и первое не решил! И вот наша компьютерная семейка решила этот пример. Все видели как Монитор еще думал над первым действием. Но так как время было уже растрачено, Монитору пришлось сдать решение. Мистер Калькулятор начал проверять работы, он посмотрел работу Монитора ,,Ужасно! В жизни не видел такого!"-воскликнул Калькулятор. Монитор тяжело вздохнул, ему было очень грустно. Компьютер, Мышка и Клавиатура победили, но отдали приз Монитору и сказали ,,Забирай приз, он нам все равно не нужен. Ведь самый ценный приз - это дружба!"
Var d,m,i,all:integer; begin read(d,m); all:=0; for i:=12 downto (m+1) do begin if i=12 then all:=all+31; if i=11 then all:=all+30; if i=10 then all:=all+31; if i=9 then all:=all+30; if i=8 then all:=all+31; if i=7 then all:=all+31; if i=6 then all:=all+30; if i=5 then all:=all+31; if i=4 then all:=all+30; if i=3 then all:=all+31; if i=2 then all:=all+28; if i=1 then all:=all+31; end; if i=12 then all:=all+31-d; if i=11 then all:=all+30-d; if i=10 then all:=all+31-d; if i=9 then all:=all+30-d; if i=8 then all:=all+31-d; if i=7 then all:=all+31-d; if i=6 then all:=all+30-d; if i=5 then all:=all+31-d; if i=4 then all:=all+30-d; if i=3 then all:=all+31-d; if i=2 then all:=all+28-d; if i=1 then all:=all+31-d; writeln(all); end.
// Внимание! Если программа не работает, обновите версию!
function FillStr(S:string;Len:integer):String;
begin
var k:=Len div S.Length;
if k>0 then Result:=S*k else Result:='';
k:=Len-k*S.Length;
if k>0 then Result+=S[:k+1]
end;
begin
Writeln(FillStr('Это тест!',23))
end.
Результат
Это тест!Это тест!Это т