var a,b,c:integer;
begin
readln(a,b,c);
if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')
end.
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
Var a:array[1..3,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin a[i,j]:=random(20)-10; write(a[i,j]:4);end;writeln;end;
for j:=1 to 4 do begin
s:=0;
for i:=1 to 3 do s:=s+a[i,j]; writeln('cумма ',j, ' столбца=',s);end;
<span>end.</span>
<span><span>Относительный тип - обычная ссылка вида буква столбца-номер строки (B1, С4, похоже на морской бой). При копировании формулы Excel использует этот тип по умолчанию и это удобно.
</span><span>Абсолютный тип - ссылка вида $буква столбца-$номер строки. Абсолютный тип мы используем, когда хотим намертво зафиксировать ссылку на ячейку при копировании формулы.
</span><span>Смешанный тип сочетает в себе признаки относительного и абсолютного типов ссылок.</span></span>