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

Дано натуральное k от 1 до 180. написать программу для определения цифры, которая находится в k-той позиции последовательности 10111213…9899. формат входных данных файл содержит число k — позиция искомой цифры. формат выходных данных выходной файл содержит искомую цифру.

👇
Ответ:
Aizere20060304
Aizere20060304
01.11.2022
//PascalABC.NET 3.2 сборка 1318

Var
  f:text;
  k,i:integer;
  s:string;
begin
for i:=10 to 99 do
  s+=inttostr(i);
assign(f,'input.txt');
reset(f);
read(f,k);
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,s[k]);
close(f);
end.

Пример содержимого input.txt:
180
Пример содержимого output.txt:
9
4,8(14 оценок)
Открыть все ответы
Ответ:
Классификации в русском языке (задание 2). 
2. Числительные в русском языке классифицируются по составу и по значению. По составу они делятся на простые, сложные и составные. Пример простых числительных: четыре, пять. Пример сложных числительных: шестьдесят, пятьсот. Пример составных числительных: тридцать пять, сто пятьдесят четыре. По значению числитель­ные делятся на порядковые и количественные. Пример порядковых числительных: второй, девятый. Пример количественных числи­тельных: шесть, два. 
Представить информацию о классификации в русском языке в виде графа. Является ли полученный граф деревом? 
4,6(66 оценок)
Ответ:
qrfeq16
qrfeq16
01.11.2022
Var A: Array of Integer;
    N: Integer;
    i: Integer;
    sum: Integer;
Begin
  Randomize;
  Write('N = ');
  ReadLn(N);
  SetLength(A, N + 1);
  WriteLn('Массив:');
  For i := 1 To N Do
  Begin
    A[i] := Random(50) - 25;
    Write(A[i] + ' ');
  End;
  WriteLn;
  WriteLn('Без отрицательных:');
  For i := 1 To N Do  Begin
    If A[i] >= 0 Then
      Write(A[i] + ' ');
  End;
  sum := 0;
  WriteLn;
  WriteLn('Среднее арифметическое:');
  For i := 1 To N Do  Begin
    sum := sum + A[i];
  End;
  WriteLn(sum / N);
End.
4,8(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ