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.
Спасибо
Ответ дал: Гость
program p_1
var
a: string
begin
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
end.
Ответ дал: Гость
моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.
Популярные вопросы