- Код: Выделить всё
program n;
var
m:real;n:integer;
begin
writeln ('Vvedite massy telqa');
readln (n);
m:=0.65*n;
writeln ('Massa molekyl:',m:0:4);
readln;
end.
Модератор: Модераторы
program n;
var
m:real;n:integer;
begin
writeln ('Vvedite massy telqa');
readln (n);
m:=0.65*n;
writeln ('Massa molekyl:',m:0:4);
readln;
end.
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
Writeln('Windows_mast_die!!');
readln
end.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 238