More than 5 years have passed since last update.

AtCoder 過去問精選 10 問を Ada で解いてみる

Last updated at 2019-01-04Posted at 2019-01-02

#はじめに
タイトルの通りですが、受験生なもので、勉強の合間にやりたいと思います。
そのため随時更新していく形になりますがなにとぞよろしくお願いします。

「AtCoder に登録したら次にやること～これだけ解けば十分闘える！過去問精選 10 問～」

こちらの記事の問題をAda言語で10問解いていこうと思います。

#環境

OS : Windows10
IDE : GNAT community 2018

第１問 : ABC 086 A - Product (100 点)

with Ada.Text_IO;
with Ada.Integer_Text_IO;

procedure main is

   a, b : Integer;

begin

   Ada.Integer_Text_IO.Get(a, 0);
   Ada.Integer_Text_IO.Get(b, 0);

   if ( (a * b) rem 2 ) = 0 then
      Ada.Text_IO.Put_Line("Even");
   else
      Ada.Text_IO.Put_Line("Odd");
   end if;

end main;

第 2 問: ABC 081 A - Placing Marbles (100 点)

with Ada.Text_IO;
with Ada.Integer_Text_IO;

procedure main is
   
   s : String (1 .. 3);
   last : Natural;
   counter : Integer := 0;
   
begin
   
   Ada.Text_IO.Get_Line(s, last);
   
   if(s(1) = '1')then
      counter := counter + 1;
   end if;
   
   if(s(2) = '1')then
      counter := counter + 1;
   end if;
   
   if(s(3) = '1')then
      counter := counter + 1;
   end if;
   
   Ada.Integer_Text_IO.Put(counter, 0);
   
end main;