FreePascal.ru

NTFS писал(а):400 рублей, два дня, расчет после предоставления действующего exe-файла.
О согласии писать сюда или в личку.

Написал в личку.
p.s. stan-86@mail.ru

Нужно сделать контрольную работу по информатике.

В Лазарусе нужно создать проект "Календарь".

Edit1-сюда будем вводить год
Label1-результат
Button1-високосность
Button 2-век
Button 3-животное
Button 4- по календарю Майя
Button 5-по Григорианскому календарю
Button 6-по Юлианскому календарю

Все заработало!!!!! Спасибо огромное!!!

Поправил на:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject ...

Здравствуйте. Помогите, пожалуйста, разобраться.
1.Создать проект, в котором объявить переменные различных типов, присвоить переменным A и B значения, переменным разных типов C, D и F присвоить значения арифметического выражения A/B, вывести значения переменных C, D и F.

Вот собственно код который ...