var x := ReadArrInteger('Введите числовые элементы множества X:', m);
Readln;
var y := ReadString('Введите символьные элементы множества Y:')
.Where(c -> c <> ' ').ToArray;
Print('X:');
foreach var a in X do
Write(a:5);
Writeln;
Print('Y:');
y := y.Shuffle;
for var i := 0 to x.High do
Write(y[i]:5)
end.
Спасибо
Ответ дал: Гость
var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
Ответ дал: Гость
на паскале:
program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.
Популярные вопросы