Нурсая12345
20.10.2021 17:25

Нужно написать програму в паскале. условие : «hittheball» - спортивна гра, яка проводиться на невеликому майданчику, поділеному сіткою на 2 рівні частини. на них розташовуються , які намагаються перекинути м’яч через сітку на іншу половину корту так, щоб не зміг відбити його назад. коли це вдається, гравцю зараховується одне очко, і він знову робить удар, починаючи нову серію. перший удар нової серії завжди вдалий. секретар судді веде протокол, у якому фіксуються вдалі удари гравців (числа 1 або 2), а рахунок відображається на табло. але в якийсь момент через технічну несправність згасло табло. спробуйте поновити поточний рахунок гри.
технічні умови
введення програма вводить натуральне число n – кількість вдалих ударів (n < = 10 000 000), а потім n чисел 1 або 2, розділених пропусками. всі числа знаходяться в одному рядку.
виведення програма виводить поточний рахунок – два числа, розділені двокрапкою.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
LilyaDolz
11.05.2020 23:29

1 На вкладці Файл виберіть команду Створити й клацніть плитку Пуста база даних.

2 У поле Ім’я файлу введіть ім’я файлу. Щоб змінити стандартне розташування файлу, натисніть кнопку Знайти розташування для бази даних (поруч із полем Ім’я файлу), відкрийте потрібну папку й натисніть кнопку OK.

3 Натисніть кнопку Створити.

Access створить базу даних із пустою таблицею "Таблиця1", яку потім відкриє у вікні табличного подання даних. Курсор установиться в першій пустій клітинці стовпця Клацніть, щоб додати.

4Щоб додати дані, почніть вводити їх або вставте їх з іншого джерела.

0,0(0 оценок)
Ответ:
Виктория708
07.01.2022 06:11
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота