нурбол5
10.10.2021 10:42

Написать на с#. дан двумерный массив nxm. преоброзовать его следующим образом. удалить строку, содержащую число, делящееся на 3.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
tebnev02
31.03.2020 20:23
Хосспаде Иегове, да научитесь же вы язык указывать! Perl.
2.
@array; #Формат ввода не задан, будем считать что он уже заполнен.
$min = $array[0];
$max = $array[0];
for $i (@array) {
    $min = $i if ($i < $min);
    $max = $i if ($i > $min);
}
%hash = map {$_ => 1} @array;
for $i in ($min..$max) {
    print "$i " if (!(exists $hash{$i}));
}
3.
use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука.
@primes;
$n = <>;
push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n);
#ответ в массиве @primes.
4. На этот вопрос я не так давно отвечал, ну ладно.
$n = <>;
@multipliers;
for $i (2..$n) {
    if (!($n % $i)) {
        push @multipliers, ($i);
        $n /= i;
    }
}
#ответ в массиве @multipliers.
А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.
0,0(0 оценок)
Ответ:
igorlenkov2017
07.03.2021 01:31

1)

 

var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.

 

2)

 

var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.

 

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота