Ваня работал в каталоге с: \пользователи\громов иван\контрольные работы\информатика когда он выполнил , он решил сделать самопроверку,зайдя в папку с ответами. для этого он поднялся на три уровня вверх и спустился на два уровня вниз. куда в итоге попал ваня? а) с: \пользователи\громов иван в) с: \пользователи\учитель с)с: \пользователи\учитель\ответы d)с: \пользователи\громов иван\контрольные работы\ответы

👇

Ответ:

64bl9j8

27.01.2021

ответ C, т.к. сначала он поднялся на 3 уровня вверх, т.е. из папки "Информатика" вернулся в папку "Пользователи" и на этом этапе он находится в каталоге С:\Пользователи\, далее он спускается на 2 уровня вниз, т.е. в каталоге С:\Пользователи\ он открывает папку в которой ещё открывает одну папку, судя по вариантам, он открывает папку "Учитель", далее открывает папку "ответы", теперь его полный путь С:\Пользователи\Учитель\ответы.
ответ: С

4,4(19 оценок)

Открыть все ответы

Ответ:

Вайсбергггг

27.01.2021

Var i,max,min,imax,imin,sum,kol:longint;
a:array [1..1000] of longint;
begin
i:=1;
readln(a[i]);
max:=0;
min:=maxint;
sum:=0;
kol:=0;
while a[i]<>0 do begin
if a[i] mod 2=0 then
begin kol:=kol+1; sum:=sum+a[i]; end;
if a[i]>max then
begin max:=a[i]; imax:=i; end;
if a[i]<min then
begin min:=a[i]; imin:=i; end;
i:=i+1;
readln(a[i]);
end;
writeln('Количество чисел:',kol,',сумма чисел:',sum);
writeln('максимальное из чисел: ',max,',номер максимального числа:',imax);
writeln('минимальное из чисел: ',min,',номер минимального числа:',imin);
end.

Пример:
15
27
94
60
51
0
Количество чисел:2,сумма чисел:154
максимальное из чисел: 94,номер максимального числа:3
минимальное из чисел: 15,номер минимального числа:1

4,8(38 оценок)

Ответ:

Софи1234567890я

27.01.2021

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function Sod(x:integer):integer;
begin
x:=abs(x); Result:=0;
while x>0 do begin
    Result+=x mod 10;
    x:=x div 10
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999);
a.Println;
Write('Минимальный четный, делящийся на три: ');
var b:=a.Where(x->(x mod 3=0) and x.IsEven);
if b.Count>0 then Writeln(b.Min)
else Writeln('не существует');
Write('Количество элементов с четностью, как у их места: ');
Writeln(a.Where((x,i)->(x mod 2)=((i+1) mod 2)).Count);
Write('Число, сумма цифр которого наибольшая: ');
var i:=a.Select(x->Sod(x)).ToArray.IndexMax;
Writeln(a.ElementAt(i));
Write('Искомое количество пар: ');
Writeln(a.Pairwise.Where(x->x[0].
    IsEven and x[1].IsOdd and (x[1]>x[0])).Count);
end.

Тестовое решение:
n= 15
707 351 221 748 296 205 182 714 849 76 281 53 354 46 217
Минимальный четный, делящийся на три: 354
Количество элементов с четностью, как у их места: 9
Число, сумма цифр которого наибольшая: 849
Искомое количество пар: 3

4,5(10 оценок)

Это интересно:

Питомцы-и-животные

16.12.2021

Как завоевать доверие собаки: советы для новичков...

Хобби-и-рукоделие

09.09.2020

Как использовать объективы с байонетом M42 на цифровых фотоаппаратах Canon EOS...

Транспорт

18.02.2022

Как диагностировать автомобильную помпу...

Дом-и-сад