М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Redimer
Redimer
23.05.2022 12:38 •  Информатика

Ввести трехзначное число .вычислить корень квадратный второй цифры(паскаль)

👇
Ответ:
violetta1888
violetta1888
23.05.2022
Program n1;
var x,d: integer;
begin
write('введите число: ');
readln(x);
d:= x div 10 mod 10;
writeln(sqrt(d));
end.
4,6(40 оценок)
Открыть все ответы
Ответ:
elizalove21345747
elizalove21345747
23.05.2022

Овощи и фрукты, которые мы покупаем в супермаркетах, скорее всего, обрабатывали химическими веществами, чтобы увеличить срок хранения. Свой негативный вклад могли внести сборщики плодов, также существует вероятность, что они пострадали при транспортировке.

Поэтому простого мытья проточной водой перед их употреблением явно недостаточно. Чтобы не нанести вреда организму и не ухудшить состояние собственного здоровья, необходимо обработать свежие фрукты и овощи таким образом, что полностью смоются остатки химических препаратов, а также возможные бактерии и вирусы, объясняет Joinfo.com

Традиционный метод – мытье водой с яблочным уксусом. Для этого наполните большую салатницу водой и добавьте туда яблочный уксус (правильные пропорции – по столовой ложке уксуса на литр воды). Оставьте овощи или фрукты в уксусной воде на пять минут, а затем тщательно смойте липкие загрязнения. В случае картофеля, моркови или пастернака не возбраняется использовать чистую щетку. Останется тщательно сполоснуть продукты под струей холодной воды.

4,4(9 оценок)
Ответ:
MEhelpYOU
MEhelpYOU
23.05.2022
Var
    A: array[1..100, 1..100] of integer;
    B: array[1..100]of integer;
    i, j, k, n, m, imax: integer;
    manual: boolean;

begin
    writeln('Ручной ввод (true/false)==>');
    read(manual);
    
    if manual then begin
        writeln('Размер массива n, m ==>');
        read(n, m);
    end
    else begin
        n := random(10) + 5;
        m := random(10) + 5;
    end;
    
    for i := 1 to n do
    begin
        writeln();
        for j := 1 to m do
        begin
            if manual then
                read(a[i, j])
            else begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:3, ' ');
            end;
        end;
    end;
    
    writeln();
    writeln();
    
    for j := 1 to m do
        if j mod 2 = 1 then begin
            k := k + 1;
            b[k] := 1;
            for i := 1 to n do
                b[k] := b[k] * a[i, j];
            write(b[k], ' ');
        end;
    
    writeln();
    
    for i := 1 to k - 1 do
    begin
        imax := i;
        for j := i + 1 to k do
            if b[j] > b[imax] then
                imax := j;
        n := b[i];
        b[i] := b[imax];
        b[imax] := n;
    end;
    
    for i := 1 to k do
        write(b[i], ' ');
end.
4,8(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ