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

Задана последовательность неотрицательных целых чисел. требуется определить длину последовательности, завершающуюся первым встретившимся нолем (число 0 не входит в последовательность). входные данные входной файл input.txt содержит последовательность неотрицательных целых чисел, не превышающих значения 100. гарантируется, что во входных данных не более 100 чисел и среди них есть хотя бы одно число 0. выходные данные в выходной файл output.txt выведите целое число – длину последовательности. решите, на c++ или на pascal

👇
Ответ:
katerinaplachet
katerinaplachet
06.11.2022
Program arr_length;

const
  IN_FILENAME = 'INPUT.txt';
  OUT_FILENAME = 'OUTPUT.txt';

var
  fileIn,fileOut: TextFile;
  s,t: string;

begin
  writeln('Загружаю входные данные...');
  t := '';
  AssignFile(fileIn, IN_FILENAME);
  AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.
4,5(27 оценок)
Открыть все ответы
Ответ:
typaya1911
typaya1911
06.11.2022
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));

var
  x,y,L:array[1..4] of real;
begin
  Writeln('Введите координаты четырех точек (парами х,y)');
  for var i:=1 to 4 do Read(x[i],y[i]);
  for var i:=1 to 3 do
    L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
  L[4]:=Len(x[4],y[4],x[1],y[1]);
  var s:=0.0;
  for var i:=1 to 4 do s+=L[i];
  Writeln('P=',s)
end.

Пример
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041

Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.

Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2)
Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2)
4,4(21 оценок)
Ответ:
kokorev861oxc4k3
kokorev861oxc4k3
06.11.2022

Телеконференции (Netnews, Newsgroups), наряду с электронной почтой и FTP, относятся к "классическим" видам сервиса Internet.электронная почта (E-mail), обеспечивающая возможность обмена сообщениями одного человека с одним или несколькими абонентами;

телеконференции, или группы новостей (Usenet), обеспечивающие возможность коллективного обмена сообщениями;

сервис IRC, предназначенный для поддержки текстового общения в режиме реального времени (chat);

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

Интернет-телефония, или по-другому IP-телефония, обеспечивающая передачу речевых сигналов по сети между пользователями.

4,8(82 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ