В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
moki2
moki2
13.08.2021 12:17 •  Информатика

Олег ска­чи­ва­ет из сети файл размером 40 Мбайт.
Ско­рость пе­ре­да­чи пер­вой по­ло­ви­ны дан­ных со­став­ля­ет 128 Кбит в се­кун­ду, а вто­рой — в два раза мень­ше.
Сколь­ко минут будет ска­чи­вать­ся файл?

Показать ответ
Ответ:
Jullia123123
Jullia123123
06.11.2020 20:48
Var
 currentPos,wordsAmount:byte; groupWords:string;
 procedure isCorrect(startPos:byte);
  begin
   while currentPos+1<=length(groupWords) do
    if groupWords[currentPos+1]<>' ' then inc(currentPos) else break;
   if groupWords[startPos]=groupWords[currentPos] then
    inc(wordsAmount);
  end;
begin
 readln(groupWords); wordsAmount:=0; currentPos:=1;
 while currentPos<=length(groupWords) do
  begin
   if (groupWords[currentPos]<>' ') then isCorrect(currentPos);
   inc(currentPos);
  end;
 writeln(wordsAmount); readln;
end.
0,0(0 оценок)
Ответ:
zac00
zac00
03.01.2023 00:09
 const     
        n = 3; //Кол-во фигур       
var   
   i : integer;   
   xk,yk : integer;   
   xl,yl : array [1..n] of integer;   
   r : boolean;  
begin   

 //Задание координат 
//   
xk := 2; yk := 2; // Координаты короля       
 //Координаты ладьи    
xl[1] := 1; yl[1] := 2;    
xl[2] := 4; yl[2] := 6;   
xl[3] := 5; yl[3] := 8;   
//   

r := false; 
i := 1;   
While (i <= n) and (not r) do   
begin   
if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной  прямой    
r := true;   
i:= i +1;   
end;   

if r then   
writeln ('Король под ударом') 
else   
writeln ('Король живет)'); 
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота