C++ Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (Точка).
Пишите процедуру - функцию нахождения минимума для двух чисел, например, minn(a,b: real) : real; Считываете три числа a,b,c, находите минимум из чисел a и b minn(a,b), присваиваете найденное значение переменной d, затем находите минимум среди чисел d и с minn(d,c) - присваиваете найденное значение переменной d - это и будет результат
На паскале:
var a,b,c,d: real;
function minn(a,b: real): real; begin if a>b then minn:=b else minn:=a; end;
begin write('числа a b c через пробел: '); readln(a,b,c); d:=min(a,b); d:=min(d,c); writeln('минимум: ',d); end.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка: