Переведите программу с С++ на Pascal в 2 вариантах

@Hamastri · Регистрация: 13.10.2016

Author24 — интернет-сервис помощи студентам

Я написал программу, помогите, пожалуйста. Напишите её на Pascal в 2 версиях:
1)Просто напишите ту же программу на Pascal.
2)Сделайте так, чтобы программа считывала данные из файла и выводила их в файл.

C++

#include <iostream>
#include <cmath>
using namespace std;
 
int main()
{
    float a, //Начальная высота шара
          b, //Высота конечной точки спуска шара
          r;
          cin >> a >> b;
          r = ceil ( (a - b) / 2 );
          cout << r << endl;
    return 0;
}

Заранее спасибо.

@bormant · 16.10.2016, 17:54

Pascal

var
  a, b, r: Real;
begin
  {Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);}
  Read(a,b); r:=Int((a-b)/2+0.9999);
  WriteLn(r);
  {Close(input); Close(output);}
end.

Для варианта 2 убрать комментарии.

	16.10.2016, 17:54

Переведите программу с С++ на Pascal в 2 вариантах

Решение